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pagar, faz sua programação financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar planilhas com 
computadores da linha Apple® 

E, como todo business Computer 


De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc:a versão Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, você 
controla estoques, custos, contas a 


Apresentamos o 

TK 20001. 

Be rada o programa 
mais famoso 
do mundo. 


que se preza, ele tem teclado 
profissional, aceita monitor, diskette, 
impressora e já vem com interface. 

Além de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peça logo uma 
demonstração do novo TK 2000 II, nas 
versões 64K ou 128K de memória. 

A mais nova estrela do show 
business só espera por isto para 
estrear no seu negócio. 

/MICRODIGML 

computadores pessoais 



* Sujeito a alteração sem prévio aviso. 
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Chegamos a mais um final de ano e aqui está a última edição de 85. 
Esta época é bastante propícia para pararmos e analisarmos sobre tudo 
aquilo que fizemos ou deixamos de fazer, durante o ano que termina. 

Nossa Revista passou por uma série de mudanças que nos trouxe¬ 
ram, ao longo desses 12 meses, algumas lições. A principal delas foi 
a de percebermos que, um veículo de comunicação como Microhobby 
só adquire a confiança e credibilidade do seu público quando ele bus¬ 
ca na opinião e nas necessidades dos seus leitores, o conteúdo de sua 
linha editorial. 

Desde que assumi a editoria da Microhobby, venho ressaltando este 
posicionamento em meus editoriais. A constante procura por sugestões 
e colaborações dos leitores é uma preocupação que só tem como obje¬ 
tivo fazer com que Microhobby seja um "porta-voz" e um veículo de 
apoio para os usuários de microcomputadores. Muito tem se falado 
sobre as empresas, os empresários e a Política de Informática. Mas, mui¬ 
to pouco sobre os seus consumidores e menos ainda a respeito dos pro¬ 
blemas enfrentados pelos micro-usuários. 

Começamos um trabalho, na edição número 21, que vem se alongando 
até o momento e que visa, justamente, o que foi ressaltado acima. Já 
se passaram seis edições. Este é um trabalho que ainda está no início. 
Na próxima edição estaremos em outro ano e iniciando uma outra fase 
que, tenho certeza, virá de encontro às apreensões de vocês. 

Espero apenas que continuem a nos apoiar, desejando yue 1986 seja, 
para nossa equipe e para todos àqueles ligados à informática nacional, 
um ano de crescimento e de consolidação dos nossos valores e de nos¬ 
sa tecnologia. 

Ana Lúcia de Alcântara. 
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TK-2000/II ENTENDENDO A ROM 

por Geraldo Coen 

Este é um livro de software dirigido aos usuá¬ 
rios do TK 2000 e de outros equipamentos basea¬ 
dos no microprocessador 6502, e às pessoas sim¬ 
plesmente interessadas na matéria. Resultado de 
uma análise minuciosa da ROM do TK 2000, o pro¬ 
grama, nela contido, foi estudado e comentado, em 
detalhes, em particular no que se refere aos fun¬ 
damentos do desenvolvimento de software básico, 
teoria de interpretadores, algoritmos numéricos CrS 
50.000 

PROGRAMAÇÃO COM TK 2000 

por Aloisio Pinto Alves 

Este livro está dividido em três partes. A parte 
I apresenta problemas classificados com lineares, 
não se introduzindo nenhum comando de desvio 
condicional. A parte II inclui a solução de proble¬ 
mas mais complexos, incorporando o comando de 
desvio condicional e demais recursos da linguagem 
BASIC. Com o domínio da Parte II consegue-se re 
solver vários tipos de problemas, com diversos graus 
de dificuldades. A Parte III aborda os conceitos bá¬ 
sicos de manipulação de arquivos, além de intro¬ 
duzir algumas noções sobre a montagem de Siste¬ 
mas de Processamento de Dados. CrS 45.000 

ASSEMBLY 6502 

por Bernhard Wolfgang Schon 

Neste livro trataremos da CPU 6502, das ope¬ 
rações de cada instrução, bem como dos exemplos 
de aplicação de uma maneira simples e direta. To¬ 
dos os exercícios requerem uma participação prá¬ 
tica do leitor no próprio computador, o que além 
de possibilitar uma melhor visualização do expos¬ 
to, ainda cria uma certa intimidade e familiaridade 
com o programa Assembler já existente no seu 
micro. 

O leitor perceberá, trabalhando ordenadamen¬ 
te, que linguagem de máquina não é um bicho de 
sete cabeças, mas sim uma nova opção para am¬ 
pliar a capacidade do seu microcomputador até ao 
limite de sua criatividade e imaginação. CrS 65.000. 
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Prezados Senhores, 

Recentemente , ew comprei um TK 90X de 48K 
juntamente com um gravador da National mode¬ 
lo RQ 2222MA, mas quando fui carregar o pro¬ 
grama Arco-íris, o programa não entrou. Verifi¬ 
quei o volume como manda o Manual e nada, usei 
até outros gravadores e nada acontecia, comecei 
a pensar que o TK estava com defeito e levei-o a 
um revendedor para testá-lo e lá deu tudo certo, 
então eu percebi que no revendedor foi usada uma 
TV preto/branco e eu usava uma colorida. Che¬ 
gando em casa, eu tentei carregar o programa com 
a TV desligada e por incrível que pareça deu tudo 
certo, só para gravar algum programa é que não 
precisa desligar a TV, agora eu pergunto: 

O que está ocorrendo? 

Será que o televisor está usando muita força para 
o TK? 

Ou realmente o TK está com defeito? 

Antecipadamente os meus agradecimentos pe¬ 
la atenção. 

Paulo Roberto de Moraes. 

São José dos Campos - SP 

Caro Paulo Roberto, 

O seu televisor deve estar gerando um campo 
magnético suficientemente forte e com isso inter¬ 
ferindo na transmissão de dados da fita para o 
micro. 

Experimente inverter a tomada do televisor. Se 
não melhorar, procure deixar o micro o mais dis¬ 
tante possível da TV. 

Prezados Senhores, 

Como ainda não tenho muito conhecimento pa¬ 
ra lidar com computadores, a Revista Microhobby 
tem me ajudado muito, pois por enquanto só sei 
copiar programas. 

Gostaria que respondessem algumas dúvidas: 

\ - Tentei várias vezes rodar o programa Dive- 

Bomber da edição 20 e sempre aparecia “erro na 
linha 320”. Já havia desistido quando na Micro¬ 
hobby 23 apareceram algumas cartas sobre ele. Mas 
após copiá-lo novamente apareceu o mesmo erro. 

- Rodei também o programa Demolidor da Mi¬ 
crohobby 23, que funcionou bem, mas não tem 
som. 

- O meu TK-2000 não aceita a função HGR, 
quando ela é escrita através de CONTRODSHIFT- 
L. Será que este problema interfere nos outros 
programas. 


Antonio Luiz Fumagalli. 

São Paulo - SP 

Caro Antonio, 

Você deve ter digitado algo errado, pois o pro¬ 
grama funcionou corretamente quando testado. 

O único erro do programa é na linha 1605, pois 
desvia o processamento para uma linha não exis¬ 
tente. Porém, não causa nenhum erro, ela é des¬ 
prezível já que a condição implícita para esse des¬ 
vio nunca ocorrerá. 

Verifique os valores de P e H*16+L da linha 320, 
se eles não forem inteiros e o valor a ser carrega¬ 
do ultrapassar a 255, as linhas que o calculam con¬ 
tém erros de digitação. 

Prezados Senhores, 

Possuo um microcomputador TK-2000. Nele 
tento colocar programas. No computador TK-2000 
não há a instrução INPUT # e PRINT #. 

Queria saber qual é a instrução que no caso 
substitua essa instrução no TK-2000. 

Emerson Cesar da Silva Gomes. 

Rio de Janeiro - RJ 

Prezado Emerson, 

A rotina descrita serve para gravação e leitura 
de dados alfanuméricos em fita cassete (padrão 
TRS-80). Você pode substituí-la pela rotina publi¬ 
cada na revista 23, que tem a mesma função. 

Prezados Senhores, 

Solicito informar-me se V.Sa. tem algum livro 
sobre “Linguagem de Máquina para o TK-2000” 
e qual o preço, bem como quais os outros livros 
disponíveis para o TK-2000 e, também, Jogos. 

Wilde Santos Lima. 

Salvador - BA 

Prezado Wilde 

A Micromega lançou o livro “A ROM do 
TK-2000” que já se encontra à venda em livrarias 
ou pelo reembolso postal, Caixa Postal 54096. 

No entanto, você poderá enviar-nos um cheque 
nominal e cruzado, em favor de Microdigital Ele¬ 
trônica Ltda./Microhobby, no valor de 75 mil 
cruzeiros. 

Prezados Senhores, 

Adquiri no início deste ano um microcomputa¬ 
dor TK-2000 COLOR e logo de início fiquei ma¬ 
ravilhado com as possibilidades desta excelente 
máquina. 

No decorrer dos últimos meses, no entanto, acu¬ 
mulei algumas dúvidas acerca do seu funcionamen¬ 
to e decidi escrever-lhes para solicitar os seus 
esclarecimentos: 

1 - Como carregar dois (ou mais) programas da 
fita cassete para a memória do computador? Isto 
é, supondo que alguns programas (com numera¬ 
ções diferentes, é possível para o computador ler 
dois ou mais e retê-los simultaneamente na 
memória? 

2 - Há possibilidade de verificar se um progra¬ 
ma foi bem gravado na fita cassete? A única ma¬ 
neira que conheço é digitar NEW (ou desligar o 
micro) seguido de um LOADT, mas se a gravação 
estiver com defeito já será tarde demais... 

3 - Tenho notado um defeito na instrução 
HPLOT. Quando o micro está “plotando” uma de¬ 
terminada função, freqüentemente ocorre falha, 
não aparecendo um ou mais pontos, apesar das 
coordenadas Xe Yestarem dentro dos valores cor¬ 
retos. Isto ocorre quer se use ou não a instrução 


INT, no cálculo de X e Y. Isso seria um defeito 
do meu micro, do TK-2000 em geral ou existe al¬ 
gum modo de sanar o problema? 

4 - Como fazer para proteger um programa BA¬ 
SIC gravado em fita cassete? Isto é, existe alguma 
maneira de bloquear os comandos LIST e SA- 
VET/SAVEA, o que por si só já protegeria o 
programa? 

Fábio Feijó. 

São Paulo - SP 

Prezado Fábio, 

Apenas, desenvolvendo uma rotina em Lingua¬ 
gem de Máquina será possível o procedimento in¬ 
dicado conhecido como MERGE. 

A mesma coisa para verificação do programa 
gravado. É necessário o desenvolvimento de uma 
rotina em Linguagem de Máquina conhecida co¬ 
mo VERIFY. Ele compara a gravação com o pro¬ 
grama residente. 

A sua terceira pergunta tem a mesma solução 
que as anteriores ou seja, programação em Lin¬ 
guagem de Máquina. 

Mas não desanime! Estamos publicando aulas 
do Assembly 6502 e já foi lançado o livro a “ROM 
do TK-2000”. Com esses meios acredito que você 
seja capaz de desenvolver os programas desejados. 

Prezados Senhores, 

Sou possuidor do TK-2000 e encontro muita di¬ 
ficuldade na edição e correção de linhas dos 
programas. 

1 - Uma vez editada a linha, não é possível, 
recuperá-la e realizar alguma alteração? No TK-85 
há o comando EDIT para isso. 

2 - Qual o procedimento para gravar e recupe¬ 
rar uma fita K7, um arquivo que não seja um pro¬ 
grama, isto é, um conjunto de dados atribuídos 
a um grupo de variáveis numéricas ou alfanumé¬ 
ricas (String), para serem manipuladas e atualiza¬ 
das por um programa que necessite um grande nú¬ 
mero de INPUTs? 

3 - Existe um limite para uso de quantidade de 
variáveis? 

4 - É possível no modo Gráfico (HGR) sobre¬ 
por o modo texto (TEXT) ou vice-versa, e com is¬ 
so obter desenhos com legendas ou relatórios com 
exemplos gráficos? 

Agradeço antecipadamente os esclarecimentos 
dessa conceituada e prática revista, e à sua equi¬ 
pe, é claro! 

Ronaldo Teixeira Cardoso. 

Três Corações - MG 

Prezado Ronaldo, 

O TK-2000 não possui editor residente, mas es¬ 
tá disponível no mercado o software necessário pa¬ 
ra esse recurso. Ele é fabricado pela Multisoft e 
pode ser adquirido em qualquer revendedor 
Microdigital. 

- Na revista Microhobby número 23 foi publi¬ 
cada a rotina de gravação e leitura de dados 
alfanuméricos. 

- A quantidade de variáveis é limitada pela ca¬ 
pacidade de memória. 

- Só é possível abertura de “janelas” de texto 
no modo HGR, isto é, você deverá primeiro defi¬ 
nir os gráficos e depois o texto. 

Prezados Senhores: 

Gostaria de ter esclarecidas algumas dúvidas so¬ 
bre o TK-2000. 

1 - Posso utilizá-lo para acessar serviços como 
o Cirandão? Como? 

2 - Quais equipamentos são necessários para is¬ 
so? Onde posso encontrá-los? 
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3 - O TK-2000 pode receber placa CP/M? Essa 
placa traria algum problema para o micro? 

Sugiro a publicação de uma matéria tratando das 
possibilidades de “Crescimento” do TK-2000 em 
termos de periféricos. 

Plínio Barreto da Silva. 

São Roque - SP 

Prezado Plínio, 

O TK-2000 pode ser utilizado para acessar os 
serviços do Cirandão e o equipamento necessário 
é um Modem e uma interface do tipo RS 237. A 
Microdigital já possui este projeto e pretende lançá- 
lo, talvez, no ano que vem. No entanto, nós não 
conhecemos outro fabricante deste tipo de 
equipamento. 

Devemos informá-lo ainda que o TK-2000 não 
permite acoplamento de placa CP/M. 


Prezados Senhores , 

Na Microhobby número 22, página 35, encon¬ 
tramos o jogo “Bologna e Milano” na versão pa¬ 
ra o TK-2000. Ao tentar digitá-lo encontrei alguns 
problemas, para os quais peço a solução. São eles: 

1 - Na tabela I existe por exemplo o seguinte: 

rt - CRTZ - SHIFT TEXT 

Sei que a notação “CRTL, quer dizer CON- 
TROL, ou mais especificamente “TECLA CON- 
TROL”, mas “CRTZ” não tenho a menor idéia. 
Digitar ao mesmo tempo “CONTROL - Z - SHIFT 
- TEXT”, não pode ser, pois sairíamos imediata¬ 
mente do modo gráfico; Resumindo, o mesmo quer 
dizer “CRTZ”? 

2 - Na linha 511 encontrei caracteres que não 
constam da Tabela I, o que impediu de continuar 
a digitação, isso após algumas noites de trabalho; 

3 - O mesmo problema, ou seja, na listagem apa¬ 
recer caracteres que não constam da Tabela I, en¬ 
contrei também nas linhas 518 - 521 - 522. 

Henrique Alves de Moura. 

Tremembé - SP 


Caro Henrique, 

Na revista número 24 foi publicada uma maté¬ 
ria “Explorando o teclado do TK-2000”. 

Acreditamos que ela deva tirar as suas dúvidas 
referentes à tabela de gráficos especiais. Quando 
dissermos CRTZ significa a tecla (Control), pres¬ 
sionada em conjunto com a tecla (Z). 

Prezados Senhores: 

Sou assinante desta revista-escola e gostaria de ob¬ 
ter algumas informações para que possa traduzir 
programas do Apple para o TK-2000. 

1 - Como modificar as seguintes instruções pa¬ 
ra que funcione no TK-2000: 

a) IF PEEK (-16384) = 128 THEN X. 

b) IF PEEK (-16384) 128 THEN POKE 16368,0. 

c) IF PEEK (-16384) 128 THEN X. 

d) IF PEEK (-16287) 127 THEN X. 

e) A = PEEK (-16384):POKE 16368,0. 

V = 3 * ((A=ASC(“K”)) - (A =ASC(“J”))). 

2 - Como podemos simular a função PDL(X) no 
TK-2000? 


Aloisio Sérgio Araújo de Lima. 
Salvador - BA. 

Cara Editora, 

Sou possuidor de um TK-2000 COLOR, e es¬ 
barrei com o programa para o APPLE que usa as 
funções do PEEK (-16384) e POKE (-16368) que 
não funcionam no TK-2000. 

Nilton Oliveira da Silva. 

Rio de Janeiro - RJ. 

Caro Aloisio e Nilton, 

Em resposta às suas cartas devemos informar 
que: 

- A função do PEEK (-16384) e do POKE 
(-16368) no programa é para permitir a leitura do 
teclado. 


- O endereço (-16384) é carregado com o códi¬ 
go ASCII da tecla pressionada, durante o proces¬ 
samento do programa. 

- O POKE (-16368) serve para zerar o conteú¬ 
do do endereço (-16384), permitindo, assim, que 
a próxima tecla pressionada seja lida. 

- No TK-2000, o PEEK (39) ou o PEEK (38) 
servem para “ler” o teclado. Porém, não basta subs¬ 
tituir o PEEK (-16384) e o POKE (-16368) por 
PEEK (39). É necessário modificar os valores das 
variáveis “KEY” das condições das linhas 3030 a 
3043, isso porque os valores fornecidos pelo PEEK 
(-16384) estão no código ASCII, e pelo PEEK (39) 
os valores são fornecidos em outro código, parti¬ 
cular ao TK-2000. 

Basta procurar o valor do KEY subtraído de 128 
e comparar com a tabela ASCII, do Manual de 
Operação do TK-2000. 

Saberemos, dessa forma, qual é a tecla referen¬ 
te ao código ASCII. Em seguida, com a tabela pu¬ 
blicada na revista 24, obteremos o código do 
TK-2000, referente a tecla. Aí é só substituir o va¬ 
lor de “KEY” pelo número encontrado. 

Para simular a função PDL (X) no TK-2000 é 
necessário uma interface que, no entanto, nós só 
temos conhecimento de sua existência no merca¬ 
do Exterior. 

Prezados Senhores , 

Pela presente venho parabenizá-los pelo brilhan¬ 
te programa publicado na MICROHOBBY núme¬ 
ro 24/85, o qual nos permite utilizar a alta- 
resolução nos micros compatíveis com a linha 
Sinclair. 

Outrossim, solicito que publiquem também pro¬ 
gramas que usem o monitor de alta-resolução. 

Carlos Alberto Nicolay Campeão 
Junior. 

Rio de Janeiro - RJ. 

Caro Carlos Alberto, 

Agradeço seus elogios e sugestão. Fique certo 
que tão logo seja possível levaremos sua idéia 
adiante. 


Clube de Usuários 


TK 90X - Compatíveis. 

Antonio Ávila Fernandes. 

R. Dr. Placidino Brigagão, 1214 
37950 - São Sebastião do 
Paraíso - MG 

Área de interesse: Engenharia 
Civil. 

Antonio Willian Silva. 

Praça Santo Antonio, 29 - 
Recreio 

45100 - Vitória da Conquista - 
BA 

Também possui TK-85. 

Área de interesse: Basic, 
Assembly. 

Daniel Israel Mignone. 

R. Gomes Carneiro 51/104 - 
Ipanema 

22071 - Rio de Janeiro - RJ 
G.R.Pereira. 


Caixa Postal 70 
96200 - Rio Grande - RS 
Área de interesse: Geral. 

Hamilton E.L. de Souza. 

Caixa Postal 1103 
80000 - Curitiba - PR 
Área de interesse: Aplicativos, 
Financ., Eng.Eletr., Jogos. 

Rinaldo Hideki Tateishi. 

Av. Jonia, 213 

04634 - São Paulo - SP 

Área de interesse: Jogos, Dicas. 


TK 85 - Compatíveis. 

Aguinaldo Bizuti. 

R. Duvilio José Quaglia, 155 
09500 - São Caetano do Sul - 
SP 

Aloisio Sérgio Araújo da Silva. 
R. Direta do Uruguai, 287 - 1.° 


andar 

40000 - Salvador - BA 

Aparecido Teruo Shimada. 

R. Cândido Mota, 70 - Cond. 
Maracanã 

09000 - Santo André - SP 

Cibernet Hobby Club. 

Caixa Postal 4653 
20000 - Rio de Janeiro - RJ 
Área de interesse: Dicas, 
Novidades e Cursos. 

Fábio Chiarelli. 

R. Oscar Guanabarino, 58 
01534 - São Paulo - SP 
Possui um CP-200 
Área de interesse: Jogos. 

TK 2000 - Compatíveis 

Acir J. Martins Vieira. 

Caixa Postal 80 


15300 - General Salgado - SP 
Área de interesse: Jogos. 

Adriano L. B. de Carvalho. 

R. João Pessoa, 392 - Centro 
27500 - Resende - RJ 
Área de interesse: Jogos, LM, 
Aplicativos, Utilitários./ 


Sinesio Cabeggi. 

Praça da República, 270 - Centro 
01045 - São Paulo - SP 

Patrik Van Sebroeck. 

R. Dr. Fausto Ribeiro de 
Carvalho, 85 

09700 - São Bernardo do 
Campo - SP 

Marcos Celso da Silva. 

R. Santos, 387 
09250 - Santo André - SP 
Área de interesse: Jogos em 
Linguagem de Máquina. 
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Máquina de escrever 
torna-se editor de texto 

O Editex - 121 acoplado à máquina Olivetti. 


Uma revolução no processamento de 
textos. É assim que a empresa mineira 
Computex classifica o Editex - 121, um sis¬ 
tema de processamento e edição de tex¬ 
tos, produzido por eles. 

Este equipamento foi desenvolvido pa¬ 
ra ser acoplado à máquina de escrever Oli¬ 
vetti ET-121, e tem a capacidade de editar 
textos de até 16 mil caracteres. Com ain¬ 
da 30 funções pré-programadas, velocida¬ 
de de gravação/leitura em fita cassete de 
1500 bits/segundo e velocidade de impres¬ 
são de 17 caracteres por segundo. 

Através dele, a máquina passa a contar 
com 40 recursos diferentes que vão des¬ 
de o sublinhamento, a impressão em ne¬ 
grito, podendo até centralizar o texto au¬ 
tomaticamente, fazer justificações de fra¬ 
ses à direita ou à esquerda, passando pe¬ 
ia busca, substituição, exclusão e inclusão 
de palavras. Além dessas correções, o 
aparelho realiza a formação do texto e o 
imprime tantas vezes quantas forem ne¬ 
cessárias, ou transfere para um gravador 
cassete, que armazena os dados em fita 
magnética, para uma posterior reprodução. 

Em suma, acabou-se a desagradável ta¬ 
refa de avançar e recuar o carro da máqui¬ 
na de escrever para fazer correções - o Edi¬ 
tex 121 supre todas essas necessidades. 

Segundo o Diretor de Marketing da 
Computex, liso Sestari, "O projeto do Edi¬ 
tex - 121 começou a ser desenvolvido em 
julho do ano passado, aproveitando-se o 
apoio da atual legislação de informática 


que só permite o acesso, a esse pequeno 
segmento de mercado, à empresas 
brasileiras". 

O preço do Editex-121 corresponde a 


25% do custo de uma máquina Olivetti e 
já está à disposição em cerca de 70, das 
principais, concessionárias autorizadas do 
país.M.R. 

Cartão de 

referência 
para Apple II 

Foi lançado o cartão de referência para 
o microcomputador Apple II, pela Ponto 
Editorial. 

O cartão, com apenas 16 páginas, subs¬ 
titui o manual do proprietário, com 320 pá¬ 
ginas, e aborda os principais recursos des¬ 
te micro como: Integer Basic, Applesoft, 
DOS 3.3 e Assembly 6502. O cartão po¬ 
de ser encontrado na Ponto Editorial - Rua 
Caetés, 252 - São Paulo, CEP 05016, ou 
pelo telefone (011) 864-3499, ao preco de 
Cr$ 40.000,00. 


Elgin 

amplia sua 
atuação 


Em detrimento de uma boa atuação e 
um resultado que ultrapassou as expecta¬ 
tivas na V Feira Internacional de Informá¬ 
tica, a Elgin, a partir de agora, passa a 
atender o usuário final, levando a marca 
registrada das melhores impressoras 
brasileiras. 

Até então esta empresa liderava o mer¬ 
cado de periféricos, no fornecimento de 
impressoras em regime de O&M. As pri¬ 
meiras lojas a adquirirem um grande lote 


das impressoras Lady e Amélia foram a 
ENG Comércio de Computadores, locali¬ 
zada na Av. dos Tajurás, 406 - SP, e a TCA 

- Tecnologia, Computação e Automação, 
instalada na Av. Pedroso de Moraes, 433 

- conjunto 52 - SP. 

Conforme afirmaram os representantes 
da empresa, a Elgin já está se preparando 
para outros lançamentos, com a tecnolo¬ 
gia em mecânica fina que marcou seus 33 
anos de existência. M.R. 
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Incentivo à Pesquisa 



Entrega do "Prêmio Governador do Estado". 


Com o objetivo de premiar e estimular 
o desenvolvimento de pesquisa no país, 
vem sendo realizado anualmente o Con¬ 
curso Nacional do Invento Brasileiro - "Prê¬ 
mio Governador do Estado". 

Sob a promoção da Secretaria da Indús¬ 
tria, Comércio, Ciência e Tecnologia, e 
coordenação do Serviço Estadual de As¬ 
sistência aos Inventores (SEDAI), o Con¬ 
curso, no seu décimo terceiro ano, teve 
180 inscritos. Em detrimento do alto nível 
dos participantes, ficou decidido pela Co¬ 
missão julgadora dividir o prêmio entre os 
5 primeiros colocados. 

O "Prêmio Governador do Estado" no 
valor de Cr$ 35 milhões, foi entregue pe¬ 
lo Governador de São Paulo, Franco Mon- 
toro, em solenidade no Palácio dos Bandei¬ 
rantes aos seguintes ganhadores: Iracema 
de Oliveira Moraes, da UNICAMP, concor¬ 
reu com o trabalho "Processo de Produ¬ 
ção de toxina termoestável de Bacilos thu- 
ringiensis"; Carlindo Hugueney Jr., da Te- 
lebrás, participou com o trabalho "Siste¬ 
ma de Comutação com controle descen¬ 
tralizado"; José Geraldo Chiquito, também 
da Telebrás, apresentou o "Regenerador de 
Sinais modulados em Códigos de Pulsos 
em 2,048 Mbytes, com equalizador variá¬ 
vel a transcapacitância"; Nelson Martins 
Costa Filho com o invento "Aparelho para 
reprodução de vídeo e som"; e José Már¬ 
cio Jardim e Paulo Aires Falcão de Men¬ 
donça, da Companhia Vale do Rio Doce, 
apresentaram o "Processo para concentra¬ 
ção de minério de titânio".M.R. 


Leader inaugura filial no Rio 


RJ - Diversificar para crescer. Essa é a 
principal disposição dos dirigentes da em¬ 
presa Leader Equipamentos Periféricos, 
que acaba de inaugurar, aqui no Rio, a sua 
primeira filial. Em apenas dois anos de 
existência, a empresa conseguiu destaque 
na comercialização de computadores de 
grande porte, e agora diversifica suas ati¬ 
vidades. A empresa é a primeira neste ra¬ 
mo de atividade a abrir uma filial em ou¬ 
tro estado. 

Segundo Luis Alberto Perin, a expansão 
da empresa acompanha a aceleração do 
ritmo na área da informática, registrada no 
país nos últimos anos. Além da criação da 
nova filial no Rio, a empresa vai realizar, 
ainda este ano, novos investimentos em 
outras áreas da informática, conquistan¬ 
do novos espaços. A previsão é de que a 
nova filial seja instalada em Belo Horizon¬ 
te. Segundo Perin, os investimentos serão 
diversificados para a área de comerciali¬ 


zação de mini e microcomputadores, no¬ 
vos e até usados. Para esse fim, a empre¬ 
sa já assumiu o controle acionário da Me- 
todata do Rio, empresa especializada em 
consultoria em informática e comercializa¬ 
ção de softwares de apoio. 

A expectativa dos dirigentes da empre¬ 
sa com relação ao mercado carioca é bas¬ 
tante otimista, e para assegurar esse ponto 
de vista, eles apresentam um dado anima¬ 
dor: mesmo antes de inaugurada, a filial 
do Rio já vinha gerando muitos negócios. 
Entre eles, Paulo Sampi, um dos diretores 
da Leader, destaca transações bem suce¬ 
didas com a Servenco e com a Pontifícia 
Universidade Católica do Rio de Janeiro. 
A necessidade de ampliar a sua área de 
atuação foi definida, pelos diretores da em¬ 
presa, diretamente por dois fatores: o vo¬ 
lume sempre crescente do parque insta¬ 
lado, e o fato de que a política de reserva 
de mercado adotada no país tem limitado 


um pouco o volume de transações com 
equipamentos importados. 

Ao comentar o atual posicionamento do 
Governo com relação à Lei de Reserva de 
Mercado da Informática, Luis Alberto Pe¬ 
rin afirma que a questão é controvertida, 
e que pode ser uma "faca de dois gumes". 

"Eu acho que, por um lado, a reserva po¬ 
de trazer resultados positivos, com a cria¬ 
ção de mão-de-obra e tecnologia 100 por 
cento nacional, mas por outro lado, sur¬ 
gem as desvantagens, como por exemplo, 
uma defasagem de muitos anos em rela¬ 
ção ao que se está fazendo, em termos de 
pesquisa, nos países desenvolvidos". 

A Leader tem matriz em São Paulo e ini¬ 
ciou suas atividades em novembro de 
1983. Nesses dois anos, atendeu cerca de 
200 clientes, na maioria grandes empre¬ 
sas, em sua maioria instituições financei¬ 
ras, industriais, estatais, e multinacionais. 
L.P. 
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SENAI treina técnicos de 
impressoras para a Indústria 

A Teleprinter 2754A/2754B do SENAI. 



SEADE 
democratiza 
a informação 

a 

através 
de Banco de 
Dados 

Ao digitar em seu telex 0191321 + você 
obterá dados estatísticos de todos os mu¬ 
nicípios do Estado de São Paulo, além de 
informações de caráter conjuntural a nível 
de Brasil. Este serviço chama-se Sistema 
de Informações Municipais - SIM - resul¬ 
tado de um convênio firmado entre a Fun¬ 
dação Sistema Estadual de Análise de Da¬ 
dos (SEADE), UNICAMP e Embratel. 

O SIM permite a qualquer pessoa leiga, 
possuidora de um telex, consultar o Ban¬ 
co de Dados que foi ligado à Rede Nacio¬ 
nal de Telex, através de interfaces instala¬ 
das junto ao computador - sede (na 
UNICAMP). 

Constituído por aproximadamente 40 
mil tabelas, permanentemente atualizadas 
e de fácil acesso, este Sistema oferece ao 
usuário, informações organizadas de acor¬ 
do com os seguintes setores: agropecuá¬ 
ria, características físicas, comércio, co¬ 
mércio exterior e câmbio, comunicações, 
construção civil, contas nacionais, cultu¬ 
ra, demografia, educação, eleições, ener¬ 
gia, saneamento básico, saúde, seguran¬ 
ça, trabalho, etc. 

Os interessados em usufruir deste ser¬ 
viço deverão entrar em contato com o 
SEADE pelo telefone 229-2433 ou pelo 
endereço - Av. Casper Libero, 464.IN4.R. 

Micro Board 
muda de 
endereço 

a 

A Micro Board, empresa de software, es¬ 
tá em novo endereço. 

Se você estiver interessado em adquirir 
a relação descritiva de programas, desen¬ 
volvidos por ela, escreva para: Rua Taco- 
mã, 179 Brooklin - CEP 04561. Maiores in¬ 
formações pelos telefones 543-9163 ou 
532-0923. M.R. 


Uma das principais atrações do Subpro- 
jeto 2 do Plano de Eletrônica e Informáti¬ 
ca Industriais do SENAI, cujo destaque é 
o Treinamento de Técnicos em Eletrônica 
para Manutenção de Periféricos, é uma ve¬ 
lha impressora HP mecânica com veloci¬ 
dade de 10 caracteres por segundo fabri¬ 
cada nos Estados Unidos por volta de 
1957. 

As três Teleprinters estão juntamente 
com outros equipamentos, adquiridos es¬ 
pecialmente para utilização neste curso 
que vem sendo desenvolvido na Escola 
Suíço-Brasileira do SENAI, em São Paulo, 
despertando a atenção de vários técnicos 
de indústrias como Elgin, SID, Itautec, Sis¬ 
temas, Elebra, Racimec, Digirede e 
Tecnocoop. 

Este segundo subprojeto do SENAI 
abrange três fases de treinamento: impres¬ 
soras, unidades de disco e terminais de ví¬ 
deo, voltados tanto à automação comer¬ 
cial e bancária como aos periféricos de 
computadores. 

A primeira fase-piloto do treinamento 
está sendo dedicada às impressoras e foi 
dividida em quatro módulos, onde o alu¬ 
no tem acesso: à revisão de conceitos de 


eletrônica; aos fundamentos de mecânica 
(parte onde se usa bastante as ferramen¬ 
tas manuais, tendo possibilidade de me¬ 
xer na Teleprinter); à uma síntese das tec¬ 
nologias digitais e, posteriormente, à tec¬ 
nologia das impressoras matriciais e ao co¬ 
nhecimento da manutenção, propriamen¬ 
te dita. 

Para implementação desta fase do Pla¬ 
no de Eletrônica, o SENAI montou um la¬ 
boratório próprio capaz de comportar tur¬ 
mas com 16 vagas cada. 

Além da montagem, a Instituição adqui¬ 
riu vários equipamentos didáticos como o 
Exerciser, específico para uso na manuten¬ 
ção de unidades de disco. 

O principal objetivo do SENAI com a im¬ 
plantação deste subprojeto, conforme dis¬ 
se John Franklin Arce, diretor de informá¬ 
tica da Instituição é, além da ampliação do 
Plano Geral de Informática, fornecer à in¬ 
dústria da área o suporte básico na forma¬ 
ção de seus técnicos. A preocupação cen¬ 
tral do diretor, porém, é conscientizar a 
opinião pública acerca da verdadeira ba¬ 
se de atuação do SENAI: formação de 
mão-de-obra para a indústria.A.L.A. 
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Se você possui um 
TK 2000, de hoje em 
diante não pode mais 
dispensar os programas 
Microidéia para o seu 
micro. 

Com eles, você con¬ 
trola estoques, custos, 
receitas e contas bancá¬ 
rias. Programa as finan¬ 
ças domésticas e as de 
suas empresas. E cadas¬ 
tra seus clientes, forne¬ 
cedores ou amigos. 


O software Microidéia 
vai transformar seu 
TK 2000 numa podero¬ 
sa ferramenta profissio¬ 
nal, pessoal ou domésti¬ 
ca. Capaz de realizar em 
segundos tarefas que 
lhe tomavam um grande 
tempo e esforço. 

Total mente desenvol¬ 
vidos no Brasil, todas as 
instruções de tela e ma¬ 
nuais são em português. 
E toda vez que lançar¬ 
mos uma nova versão 


de um software, você 
poderá trocá-la por seu 
programa original. 

Em cassete ou 
diskette, já temos para 
TK 2000: Orçamento 
Doméstico, Controle 
Bancário, Mala Direta, 
Mini Banco de Dados, 
Fluxo de Caixa, Contas 
a Pagar, Contas a Rece¬ 
ber e Controle de Esto¬ 
ques, todos compatíveis 
com o Apple e 
TK 2000 II. 


Procure já um dos 
nossos revendedores e 
abra seu TK 2000 para 
o software Microidéia. 

E sinta uma nova estre¬ 
la nascendo ao seu lado. 

Mas, se em sua cida¬ 
de não tem revendedor 
Microidéia, peça qual¬ 
quer um destes progra¬ 
mas pelo correio. 

Em cassete efes 
custam Cr$ 55 mil. 

Em diskette, o preço 
é Cr$ 250 mil. 


TK 2000. Open for 
Software Microidéia. 



Estou enviando um cheque do banco _ 

_de n.°_nominal à Microidéia Ltda. 


Microidéia Nome _ 

Caixa Postal 6151 End_ 

20022 / Rio de Janeiro / RJ Bairro _Cidade 

_ Tel.:_CEP 

LJ Envie-me um catálogo Micro _ 

de programas Microidéia. 


Sim! 

Quero adquirir 
o(s) segui nte(s) 
programa(s) 
Microidéia: 


Programa K7 Disk Quant. Preço 


TOTAL 


ím 


T 


J 





























Resenhas de Software 


Simulador de Vôo/TK-90X 

Ana Lúcia de Alcântara 


Que tal aprender a "voar", em um aeroplano, com o auxílio 
de seu pequeno micro? 


"Simulador de Voo" é um software de¬ 
senvolvido pela Cibertron-Software, com 
48K, que foi estruturado em BASIC e 
Assembly. 

0 programa, segundo o manual que o 
acompanha, foi idealizado para simular a 
pilotagem de um pequeno avião em tem¬ 
po real, usando vários recursos que dão ao 
usuário dinâmica geral de um aeroplano e 
ainda a possibilidade de aterrissar o seu 
TK-avião em duas pistas, decolar, navegar, 
entre outras coisas. 

0 programa mostra várias telas. A prin¬ 
cipal delas corresponde à cabine do pilo¬ 
to, que ilustra um painel de instrumentos 
na parte inferior da tela, tal como uma ca¬ 
bine de verdade. Nesta tela, o usuário tem 
a visão do mundo exterior (através das ja¬ 
nelas do aeroplano) mostrada na área su¬ 
perior do vídeo, onde se vê a cor azul (re¬ 
presentando o céu) e uma parte escura, 
que lembra o solo, lá embaixo, no aeropor¬ 
to. Inclinando o avião, o usuário pode vi¬ 
sualizar o horizonte de acordo com a po¬ 
sição do aeroplano, permitindo-lhe ainda 


observar outros detalhes como lagos, lu¬ 
zes da pista, etc. 

Logo após o carregamento do programa 
surge o menu, fornecendo aos usuários as 
opções: decolar, começar o vôo ou apro¬ 
ximação final para o pouso, incluindo ain¬ 
da os efeitos do vento, que poderão ser es¬ 
colhidos de acordo com o desejo de cada 
um, na fase de pouso ou na navegação. 

O programa fornece também mostrado¬ 
res do tipo relógio, que dão indicações de 
velocidade de descida e subida; altímetro; 
potência dos motores; combustível; ace¬ 
lerador, entre outras informações. 

Para controlar seu TK-aeronave, o usuá¬ 
rio tem à sua disposição os "controles do 
piloto" sob os lemes, a potência dos mo¬ 
tores, os mapas (onde estão as informa¬ 
ções sobre as várias estações de rádio- 
farol), etc. 

Após o cansaço de mais um treinamen¬ 
to de sua preparação para pilotos, resta ao 
usuário apenas reduzir a potência dos mo¬ 
tores de seu avião, diminuindo a velocida¬ 
de a zero e preparar-se para o pouso final. 


00 


SIMULADOR 
DE VOO 

Venha sentir as emoções de 
pilotar um aeroplano através 
deste maravilhoso simulador: 
Decolagem, navegação entre 
dois aeroportos, aterrissagem, 
com e sem efeitos de vento, 
tendo acesso ao mapa da 
região, a todos os controles e 
instrumentos de um avião de 
verdade, com um visual 
fantástico a cores, tanto do 
painel de instrumentos como do 
mundo externo. 

PROGRAMA COMPATÍVEL COM: 

TK90X 


I 


CIBERTRDn 

SOFTWARE 


Inclui linguagem de máquina 


"Simulador de Vôo" é um bom aplicati¬ 
vo, voltado mais para o usuário já experi¬ 
mentado no TK 90X. 0 que lhe fornece es¬ 
pecial valor é o manual que o acompanha. 
Coisa que, na maioria dos softwares para 
o usuário médio, dos micropessoais, é bas¬ 
tante deficitário. 

0 preço do programa está por volta de 
Cr$ 44.900,00, e pode ser encontrado na 
Magnodata, em São Paulo ou através do 
telefone (011) 255-7653. 


Pegasus 

Marcos Lorenzi 


Este programa faz parte de um pacote 
de softwares da Microsoft, que brevemen¬ 
te estará no mercado. Ele pretende ofere¬ 
cer, aos usuários do TK 90X, horas agra¬ 
dáveis de lazer, tornando o seu micro não 
apenas uma ferramenta de trabalho, mas 
sim um instrumento de diversão e 
descontração. 

0 Pegasus pode ser comandado através 
do joystick ou mesmo das teclas de seu 
TK 90X. Para saber os comandos que per¬ 
mitem pilotar a nave, observe nas tabelas 
1 e 2. 


0 seu objetivo está em: destruir os 20 
robôs no corredor do planeta Nécroton, re¬ 
tornar ao espaço, manobrar sua nave e 
acoplá-la à nave mãe. 

Se você retornar à nave mãe sem des¬ 
truir os 20 robôs a análise de sua missão 
será exibida na tela e você será lançado 
novamente ao espaço para recomeçar a 
aventura. 

Caso sua nave for destruída, ou não 
conseguir acoplá-la a tempo, o jogo se en¬ 
cerrará. Para reiniciá-lo pressione qualquer 
tecla. 


Detalhes sobre o jogo 


Sua nave possui dez bombas lazer com 
um alcance infalível, mas estas só pode¬ 
rão ser lançadas, no espaço, para destruir 
as minas. Já os raios laser, munidos de car¬ 
ga permanente, devem agir em conjunto, 
para destruírem o alvo. 

0 acoplamento somente se efetuará se 
a manobra for perfeita e se não houver mi¬ 
nas nas proximidades das naves. 
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Resenhas de Software 


Matrizes: Um educacional 

aplicado à Matemática 


Este é um programa aplicativo- 
educacional de 48K para o TK 90X, de¬ 
senvolvido pela Multisoft Informática que 
está sendo comercializado ao preço de Cr$ 
54.500,00 em todos os revendedores 
Microdigital. 

"Matrizes" é um programa bastante sim¬ 
ples, dividido em quatro menus que pos¬ 
sibilitam ao estudante a resolução de pro¬ 
blemas muito comuns no seu dia-a-dia das 
aulas de Matemática. Com o auxílio da 
computador, o usuário pode efetuar a Re¬ 
solução de Equações; dos Determinantes; 


das Matrizes Inversas e do Produto das 
mesmas. 

O programa, bem simples, não oferece 
grandes dificuldades de digitação e nem 
tão pouco em seu entendimento. Ele se 
propõe ser didático e se for por sua sim¬ 
plicidade, conseguiu atingir seu intuito. É 
bastante útil para aqueles que não dese¬ 
jam pensar muito na resolução de seus cál¬ 
culos de matemática. 

Nos quatro módulos do "Matrizes" o 
programa pergunta se o usuário deseja 


usar impressora. A seguir, solicita o núme¬ 
ro de equações, a ordem dos determinan¬ 
tes, o número das matrizes inversas, e o 
número de linhas e colunas de cada ma¬ 
triz. Fornecidos os dados ao micro, o pro¬ 
grama confirma ainda, com o usuário, se 
realmente as informações estão corretas, 
exibindo-as na tela. Feitas ou não as alte¬ 
rações necessárias, o micro fornece a re¬ 
solução do problema, conforme o menu 
escolhido, e no final indaga ao usuário- 
aluno se ele deseja continuar. O programa 
é bem repetitivo. A.L.A. 


Faça amigos na INFORMÁTICA 


Na ENG, você encontra 

microcomputadores 

compatíveis 

às principais linhas do 

mercado (Sinclair, MSX, Apple, 

IBM - PC*), impressoras e 

Software. 

Na ENG, a amizade é um fator 
fundamental, onde você 
encontra preços amigos, 
software clube, 
e os seus amigos. 



Faça uma visita aos seus 
amigos na informática 


ENG Computadores — Show Room 
Av. dos Tajurâs, 406 
Cidade Jardim (011) 813-7570 
São Paulo - SP - 05670 









Letras Minúsculas no TK-2000 


Paulo Marote 


Este é um programa inteiramente feito 
em Assembly e ocupa os últimos 700 
bytes de memória e, por isso, não prejudi¬ 
cará o programa Basic que estiver grava¬ 
do na memória. 

Ele, além de criar letras minúsculas, cria 
também caracteres em português (acen¬ 
tuados) e gera novos caracteres gráficos. 

Para carregá-lo, digite LM para colocar 
no Modo Monitor e digite os códigos do 
programa (figura 1) cuidadosamente. 

Todas às vezes que você for executar o 
programa verifique se o seu computador 
não está no Modo de Caracteres Gráficos. 
Caso esteja, digite CONTROL-B para que 
o computador volte ao Modo de 
Palavras-Chaves. 

Terminada a digitação do programa, 
execute-o, no Modo LM, com 9D00G (RE- 
TURN), que fará com que o computador 
execute o programa em Assembly, locali¬ 
zado a partir da memória 9D00. 

Feito isso, deverá aparecer o nome, au¬ 
tor e versão do programa no vídeo e aí en¬ 
tão o computador estará no Modo de Ca¬ 
racteres Gráficos. Para ver as letras minús¬ 
culas, digite CONTROL-SHIFT junto com 
a letra desejada. Para visualizar os carac¬ 
teres em português e os caracteres gráfi¬ 
cos, digite SHIFT com a tecla desejada. 
Caso não tenha dado certo, confira todas 
as etapas descritas e os códigos do 
programa. 

O programa em Assembly está dividido 
em três partes: 

9D00 a 9DC0 Programa em 
Assembly. 

9DC0 a 9E00 -* Nome, versão e autor 
do programa. 

9E00 a 9F90 -> Código dos caracteres. 

Os caracteres são os seguintes: 

Apertando CONTROL-SHIFT junto com: 

Letras -> Letras minúsculas 
correspondentes. 

Números 1, 2, 3 e 4 -> Letras K, L, O e P. 

Números 5, 6 e 7 -> Letras Alfa, Beta 
e Pi. 

Apertando SHIFT junto com: 

Letras Q, W, E, R e T -► Letras A, E, I, 


O e U com acento agudo. 

Letras A, S e D -► Letras A, E e O com 
acento circunflexo. 

Letras Z e X -+ Letras A e O com til. 

Letra C -► C cedilha. 

Letra F -> A craseado. 

Letra V -► U com trema. 

Letra M Outro tipo de M minúsculo. 

Letra Y -> Símbolo de divisão. 

Letra U -► Símbolo gráfico -► 
homenzinho. 

Letra G -*• Símbolo gráfico -> nave 
espacial. 

Letra H -► Símbolo de mais ou menos. 

Letra J -> Símbolo gráfico -► nave 
espacial. 

Letra B -> Símbolo numeral ordinário. 

Letra N -► Símbolo "Copyright". 

O TK-2000 não foi projetado para gerar 
letras minúsculas, portanto, neste progra¬ 
ma foram feitas apenas as mudanças prin¬ 
cipais. Por isso há dois tipos da letra M mi¬ 
núscula. Você poderá usar o tipo que mais 
se adaptar a você. 

Para escrever instruções com as novas 
letras deverá ser obedecido o seguinte: 

INSTRUÇÃO " CONTROL-B STRING 
CONTROL-B " 

Você deverá digitar o programa, sempre 
no modo de palavras-chaves, e digitar 
CONTROL-B para colocar no modo de ca¬ 
racteres gráficos SEMPRE ENTRE ASPAS. 

Para digitar dentro de instruções as le¬ 
tras K, L, O e P, digite sempre essas letras 
pelos números 1, 2, 3 e 4. 

Para gravar o programa, digite no modo 
LM a seguinte instrução: 9D00.9F90W 
"NOVLET", ou o nome que você preferir. 
Essa instrução vai gravar os bytes de 9D00 
a 9F90, que correspondem ao programa, 
no gravador, e vai dar o nome de NOVLET 
a esse programa. 

Para carregá-lo basta digitar, no modo 
LM,R (RETURN), certificando-se antes se 
o computador não testá no Modo Carac¬ 
teres de Gráficos. Desta forma, execute-o 
com a instrução 9D00G (RETURN). 

Este programa só funcionará no 
TK-2000 com 64 Kbytes ou 128K. Ele 
transpõe a ROM para a RAM fazendo des¬ 
se modo com que o programa, que esta¬ 


va em ROM, possa ser alterado. Ele, sim¬ 
plesmente, substitui os caracteres gráficos 
pelos novos caracteres. Por essa razão foi 
dito acima que o computador não foi pro¬ 
jetado para ter letras minúsculas. Para tan¬ 
to é necessário a realização de muitas mu¬ 
danças no micro, assim como uma gran¬ 
de pesquisa na ROM. 

O TK-2000 de 64 Kbytes ou 128K, 
quando ligado, seleciona, automaticamen¬ 
te, os últimos 16 Kbytes para a ROM. Já 
com o programa "Letras Minúsculas", ar¬ 
mazenado na memória, o micro separa os 
mesmos 16K só que para a RAM. Por is¬ 
so, ao se acionar o RESET, os últimos 16K 
ficarão reservados para a ROM, novamen¬ 
te. Para separar, mais uma vez, os 16K para 
a RAM, basta executar em LM a seguinte 
instrução: C05B (RETURN) que fará com 
que o computador acesse o endereço 
C05B, que por conseguinte faz com que 
o micro ponha em RAM os últimos 16 
Kbytes. 

Exemplo de utilização do programa: 

Suponhamos que se deseje digitar o se¬ 
guinte: 

10 PRINT "Paulo é o bom". 

Então deve-se fazer: 

Digitar normalmente "10 PRINT". 

Digitar CONTROL-B. 

Digitar a tecla P sozinha. 

Digitar as teclas A e U junto com 
CONTROL-SHIFT. 

Digitar as letras L e O pelos números 2 
e 3 junto com CONTROL-SHIFT. 

Digitar o espaço normalmente e a letra 
E pela tecla W junto com SHIFT. 

Digitar o outro espaço, e a letra O pelo 
número 3 junto com CONTROL-SHIFT e 
digitar o outro espaço. 

Digitar a tecla B junto com CONTROL- 
SHIFT, a letra O pela tecla 3 junto com 
CONTROL-SHIFT e digitar a letra M junto 
com CONTROL-SHIFT. 

Digitar CONTROL-B e as outras aspas 
normalmente. 

Digitar (RETURN). 

Antes de digitar uma instrução, 
certifique-se que o computador está no 
Modo de Palavras-Chaves. Caso esteja no 
Modo de Caracteres Gráficos digite 
CONTROL-B para voltar ao Modo Normal. 
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Figura 


Códigos 


Programa 


“Minúsculas". 


9D00 - AD 00 Cl 8E 5B CO 8D 00. 
9D08 - Cl 8E 5A CO EE 01 9D EE. 
9D10 - 07 9D DO EC EE 02 9D EE. 
9D18 - 08 9D DO E4 8E 5B CO AD. 
9D20 - 00 9E 8D 00 F4 EE 20 9D. 
9D28 - EE 23 9D DO 06 EE 21 9D. 
9D30 - EE 24 9D AE 20 9D EO 90. 
9D38 - DO E5 AE 24 9D EO F5 DO. 
9D40 - DE A9 Cl 8D 02 9D 8D 08. 
9D48 - 9D A9 00 8D 01 9D 8D 07. 
9D50 - 9D 8D 20 9D 8D 23 9D A9. 
9D58 - 9E 8D 21 9D A9 F4 8D 24. 
9D60 - 9D AD 01 F2 8D 00 F2 EE. 
9D68 - 62 9D DO 03 EE 63 9D EE. 
9D70 - 65 9D DO 03 EE 66 9D AE. 
9D78 - 63 9D EO F4 DO E3 A9 00. 
9D80 - 8D FF F3 A2 00 8E 65 9D. 
9D88 - E8 8E 62 9D A2 F2 8E 63. 
9D90 - 9D 8E 66 9D AD CO 9D C9. 
9D98 - 83 FO 09 20 ED FD EE 95. 
9DA0 - 9D 4C 94 9D A2 9D 8E 96. 
9DA8 - 9D A2 CO 8E 95 9D 4C D3. 
9DB0 - C2 A9 82 20 ED FD 4C 94. 
9DB8 - 9D 1D OF 13 1E 15 IA OE. 
9DC0 - 8D 82 CC OA OC OB 14 1 5. 
9DC8 - AO 1D OF 13 1E 15 IA OE. 
9DD0 - 42 14 1 5 AO AO 1 B OA OB. 


9DD8 

- 

15 

2E 43 

AO BI 8D 

8D 

44. 

9DE0 

- 

43 

OB AO 

DO 14 OE 

42 

43. 

9DE8 

- 

AO 

CD 14 

OB 43 OC 

OA 

AO. 

9DF0 

- 

AO 

AO 1F 

AO BI B9 

B8 

B5. 

9DF8 

- 

AO 

1F 8D 

8D 83 80 

CO 

83. 

9E00 

- 

02 

02 22 

1 2 OA 16 

22 

00. 

9E08 

- 

OC 

08 08 

08 08 08 

1C 

00. 

9E10 

- 

00 

00 1C 

22 22 22 

1C 

00. 

9E18 

- 

00 

00 IA 

26 26 IA 

02 

02. 

9E20 

- 

00 

00 00 

26 19 26 

00 

00. 

9E28 

- 

1 E 

22 1E 

22 22 1 E 

02 

01. 

9E30 

- 

00 

40 3E 

15 14 14 

14 

00. 

9E38 

- 

00 

00 2C 

32 32 2C 

20 

20. 

9E40 

- 

00 

00 2A 

2A 2A 2A 

14 

00. 

9E48 

- 

00 

00 1C 

22 3E 02 

1C 

00. 

9E50 

- 

00 

00 IA 

26 02 02 

02 

00. 

9E58 

- 

08 

08 3E 

08 08 48 

30 

00. 

9E60 

- 

00 

00 22 

22 32 2C 

20 

1C. 

9E68 

- 

00 

00 22 

22 22 32 

2C 

00. 

9E70 

- 

08 

00 OC 

08 08 08 

1C 

00. 

9E78 

- 

00 

00 2C 

32 32 2C 

20 

1C. 

9E80 

- 

02 

02 IA 

26 22 22 

22 

00. 

9E88 

- 

02 

02 IA 

26 22 26 

IA 

00. 

9E90 

- 

00 

00 IA 

26 22 22 

22 

00. 

9E98 

- 

00 

00 OC 

10 1C 12 

2C 

00. 

9EA0 

- 

00 

00 3C 

02 1C 20 

1E 

00. 

9EA8 

- 

00 

00 3E 

10 08 04 

3E 

00. 

9EB0 

- 

00 

00 22 

14 08 14 

22 

00. 


9EB8 

- 

20 

20 

2C 

32 22 

32 

2C 00. 

9EC0 

- 

30 

48 

08 

3E 08 

08 

08 00. 

9EC8 

- 

00 

00 

1C 

22 02 

22 

1C 00. 

9ED0 

- 

00 

00 

22 

22 22 

14 

08 00. 

9ED8 

- 

10 

00 

10 

10 10 

10 

12 OC. 

9EE0 

- 

00 

00 

37 

49 49 

49 

49 00. 

9EE8 

- 

10 

08 

22 

22 22 

32 

2C 00. 

9EF0 

- 

00 

1C 

3E 

49 49 

3E 

1C 00. 

9EF8 

- 

08 

08 

14 

14 22 

22 

41 7F. 

9F00 

- 

08 

08 

3E 

08 08 

00 

00 3E. 

9F08 

- 

1C 

22 

22 

1C 00 

3E 

00 00. 

9F10 

- 

1C 

22 

5D 

45 5D 

22 

1C 00. 

9F18 

- 

10 

08 

OC 

10 1C 

12 

2C 00. 

9F20 

- 

10 

08 

1C 

22 3E 

02 

1C 00. 

9F28 

- 

10 

08 

OC 

08 08 

08 

1C 00. 

9F30 

- 

10 

08 

1C 

22 22 

22 

1C 00. 

9F38 

- 

08 

14 

1C 

22 22 

22 

1C 00. 

9F40 

- 

04 

08 

OC 

10 1C 

12 

2C 00. 

9F48 

- 

00 

00 

1C 

22 02 

22 

1C 08. 

9F50 

- 

22 

00 

22 

22 22 

32 

2C 00. 

9F58 

- 

08 

14 

OC 

10 1C 

12 

2C 00. 

9F60 

- 

08 

14 

1C 

22 3E 

02 

1C 00. 

9F68 

- 

4E 

31 

OC 

10 1C 

12 

2C 00. 

9F70 

- 

4E 

31 

1C 

22 22 

22 

1C 00. 

9F78 

- 

1C 

1C 

08 

3E 08 

14 

22 00. 

9F80 

- 

00 

08 

08 

00 7F 

00 

08 08. 

9F88 

- 

00 

00 

16 

2A 2A 

2A 

2A 00. 


HOBBYSHOP 


VEJA SE SUA CIDADE TEM 0 QUE VOCÊ PRECISA 


SAO PAULO 


MICRO 


Service 


Inclusão de 24 novas funções (Read, Data, etc.), 
Slow, High Speed, Alta Resolução, Porta de 1/0, etc. 
para micro de tecnologia SINCLAIR ZX81. 
Manutenção de microcomputadores SINCLAIR (TK 
82, 83,85, etc.) eTRS. 

Wilson de Assis — Tel.: 203-7967 


EfVJE Comércio de Computadores Ltda. 
■■ TK85 x TK2000? 

Só na ENG você adquiri o seu TK2000 nas me¬ 
lhores condições e ainda dá o seu velho TK83, 
TK85 ou CP200 como parte de pagamento. 
TK2000 é na ENG. Showroom - Tel. 813-7570. 
Av. dos Tajurás, 406 — CEP: 05670. 



cipplc cursos 

CURSOS DIRIGIDOS DE 
MICROCOMPUTADORES 


• BASIC I e II e Applesoft 
• ASSEMBLER 6502 

• EDITOR DE TEXTO E PLANILHA ELETRÔNICA 


NOVAS TURMAS (c/ 12 alunos) 

INÍCIO IMEDIATO 


Reservas pelos Telefones: 853-9457 — 853-2408 Rua Suzano, 78 — Jardim Paulista — São Paulo 


QUAL A INTERFACE QUE ESTÁ FALTANDO 
NO SEU MICRO? 

É AQUELA QUE LHE DEVOLVERÁ O PRAZER DE FICAR EM FRENTE DO SEU 
MONITOR POR TEMPO ILIMITADO. 

MICROTELA possibilita que você continue com seu TV, pois possue a mesma tela de 
poliester utilizada nos monitores de última geração, filtrando e eliminando os reflexos, ao 
mesmo tempo que aumenta a resolução da imagem. 

Adicionalmente proporciona o mesmo efeito repousante dos monitores de fósforo colo¬ 
rido, utilizando acrílico nas tonalidades verde e ambar. 

Informações com MASTER STING LTDA. 

Caixa Postal 18708 — São Paulo — SP 


SINCLAIR X APPLE 

SINCLAIR — temos jogos animados, tridimensionais, com simulação de alta re¬ 
solução para micros não adaptados, sintetizador de voz por soft, jogos com som 
para micros com gerador, lindos jogos em alta resolução para micros com adap¬ 
tação e vários aplicativos. 

APPLE — temos os mais recentes e melhores jogos e aplicativos do mercado 
mundial, tais como: Conan, Sumer Games, Karateka, Masquerade, (C)85, Cas¬ 
telo Wolfensteir II, Super Visicalc, PFS Koala e outros tridimensionais. 
Escreva-nos sem nenhum compromisso dizendo-nos qual é o seu micro e rece¬ 
ba uma lista com todos os programas disponíveis, ou telefone para: 
TRANINSOFT - A/C WAGNER F. TRANIN - Caixa postal 911 - 12200 São 
José dos Campos — SP Tel. (0123) 21-6753 (após 19hs). Os preços são os mais 
baixos do mercado, comprova 


BAHIA 


Sua empresa poderia estar aqui. 

Anuncie no HOBBYSHOP e todos os Lei¬ 
tores da região conhecerão sua empresa. 
Anúncio econônico e de retorno garantido. 
























































































































Rotinas de Telas em Assembly 
para o TK-2000 

Victor José Marques 


Os dois programas a seguir foram desenvolvidos em Assembly 
e apresentam rotinas em Linguagem de Máquina, que 
possibilitam ao usuário inverter ou juntar telas de programas. 


Programa 1: Inversão de tela 

Esta rotina é bastante simples e é diri¬ 
gida, principalmente, para programas que 
apresentam gráficos. Ela transforma a te¬ 
la de seu equipamento, fazendo com que 
a imagem fique de cabeça para baixo. 

0 programa "Inversão de tela" funcio¬ 
na da seguinte forma: digite antes em Ba¬ 
sic ASS para entrar no Modo Mini As¬ 
sembly. Feito isso corretamente irá apare¬ 
cer um ponto de exclamação em sua tela 
e desta forma, você poderá iniciar a 
digitação. 

Em primeiro lugar digite o endereço, no 
caso, o 6900, seguido de dois pontos e o 
mneumônico correspondente. Para entrar 
com a linha, pressione (RETURN) e, então, 
surgirá um novo ponto de exclamação. 

É bom lembrar que, ao entrar com uma 
nova linha, não é necessário digitar nova¬ 
mente o endereço. Basta, para tanto, en¬ 
trar direto com o mneumônico. 

Terminada a digitação, saia do Assembly 
e retorne para o Modo Monitor para gra¬ 
var o programa. Já para salvar a rotina, di¬ 
gite o seguinte código: 6900.6964W "IN- 
VERT", seguido de (RETURN). Se você for 
carregá-lo, pressione a tecla R e escreva 
o nome do programa. 

Este programa pode ser executado tan¬ 
to em Basic com 26880 ou no Modo Mo¬ 
nitor com 6900G. 


Programa Inversão da Tela 


6900 LDA # $00 
6902 STA $00 
6904 LDA # $20 
6906 STA $01 
6908 LDA # $D0 


6934 LDA # $00 
6936 STA $00 
6938 INC $01 
693A LDA $01 
693C CMP #$30 


690A STA $02 
690C LDA # $3F 
690E STA $03 
6910 LDY #$27 
6912 LDA ($00),Y 

6914 PHA 

6915 LDA ($02),Y 
6917 STA ($00),Y 
6919 PLA 

691A STA ($02),Y 
691C DEY 
691D BPL $6912 
691F LDA $ 

6921 CLC 

6922 ADC #$28 
6924 STA $00 
6926 CMP #$78 
6928 BNE $6930 
692A LDA # $80 
692C STA $00 
692E BMI $6941 
6930 CMP # $F8 
6932 BNE $6941 


693E BNE $6941 

6940 RTS 

6941 LDA $02 
6943 BNE $694D 
6945 LDA #$D0 
6947 STA $02 
6949 DEC $03 
694B BNE $6910 
694D CMP #$80 
694F BNE $6957 
6951 LDA #$50 
6953 STA $02 
6955 BNE $6910 

6957 SEC 

6958 SBC #$28 
695A STA $02 
695C BNE $6910 
695E BEQ $6910 

6960 RTS. 

6961 RTS. 

6962 RTS. 

6963 RTS. 

6964 RTS. 


Programa 2: 
Rotinas de 
união de telas: 
juntando a MA 
com a MP 


A rotina em Linguagem de Máquina, 
apresentada na Tabela 1, permite juntar a 
primeira página de vídeo, a MA, com a se¬ 
gunda página, a MP. Em outras palavras, 
isto significa que, usando essa rotina, não 
é preciso ficar se preocupando com a uti¬ 
lização da MP para acionar a segunda pá¬ 
gina de vídeo (veja Tabela 1). 

O programa se apresenta dividido em 


três partes. A Parte 1 compreende os en¬ 
dereços 5000 até 5021 que coloca os va¬ 
lores iniciais nos endereços de 5034 a 
503C, abrindo dois contadores: X e Y. 

Nesta rotina, os valores utilizados nos 
endereços 5100 e 5101 são usados para 
efetuar comparações. 

A segunda parte une a MA com a MP. 
Esta união ocorre na segunda página não 
provocando, porém, a perda do formato ou 
desenho original da primeira. 

Esta rotina lhe oferece ainda, a possibi¬ 
lidade de efetuar algumas alterações. É 
possível, por exemplo, realizar a união da 
MP com a MA (de modo contrário), fazen¬ 
do com que o resultado fique na primeira 
página (MA). 

Para que esta alteração aconteça, você 
deve digitar as seguintes linhas: 


5000 

LDA 

# BF. 

5005 

LDY 

#A0. 

5012 

LDA 

#20. 

501A 

LDA 

# AO. 

5034 

LDA 

$ A000. 

5037 

ADC 

$ 2000. 

503A 

STA 

$ 2000. 


Para digitar o programa, utilize o Mini- 
Assembler do TK-2000. Digite em Basic, 
ASS, seguido de um (RETURN). Note que 
aparecerá um ponto de exclamação ("!") 
em seu vídeo. Entre então, com o primei¬ 
ro endereço (5000) seguido de dois pon¬ 
tos e o mneumônico correspondente, 
acompanhado de um (RETURN) no final. 

Não é necessário digitar o endereço to¬ 
da vez que você for entrar com uma nova 
linha. Basta dar um espaço e digitar dire¬ 
to o mneumônico. 

Apenas mais uma observação: quando 
você acabar de entrar com a primeira e se- 
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gunda parte, entre com o endereço inicial 
da terceira parte e siga a digitação normal. 

Para executar o programa, você tem à 
sua disposição duas maneiras de fazê-lo: 

- poderá rodá-lo no modo Basic, usan¬ 
do o comando CALL 20480 ou em Lingua¬ 
gem de Máquina com o 5000 G. 

Para gravar o programa em fita casse¬ 
te, você deve seguir o seguinte esquema: 

- 5000.5062 W "PGVID" (RETURN). 
Para carregá-lo digite R "PGVID" 
(RETURN). 


Rotina de união 

de Telas 

Primeira Parte 


5000 

LDA 

#3F 

5002 

STA 

$ 5101 

5005 

LDY 

#20 

5007 

LDX 

#00 

5009 

STA 

$ 5035 

500C 

STA 

$ 5038 

500F 

STA 

$ 503B 

5012 

LDA 

# A0 

5014 

STA 

$ 5039 

5017 

STA 

$ 503C 

501A 

LDA 

#20 

501C 

STA 

$ 5036 

501F 

LDA 

#FF 

5021 

STA 

$ 5100 


Segunda Parte 


5024 

LDX 

#0 

5026 

STX 

$ 5035 

5029 

INC 

$ 5038 

502C 

INC 

$ 503B 

502F 

CPX 

$ 5100 

5032 

BEQ 

$ 5050 

503M 

LDA 

$ 2000 

5037 

ADC 

$ A000 

503A 

STA 

$ A000 

503D 

INX. 


503E 

JMP 

$. 


Terceira 

Parte 



5050 

INY 



5051 

STY 

$ 

5036 

5054 

INC 

$ 

5039 

5057 

INC 

$ 

503C 

505A 

CPY 

$ 

5101 

505D 

BEQ 

$ 

5062 

505F 

JMP 

$ 

5024 

5062 

RTS. 




PROTEJA 

o seu 

ncRoconpuTfWR 



COM FILTRO DE 
LINHA 


contra 


RUÍDO ELÉTRICO 
INTERFERÊNCIA: 

RÁDIO FREQUÊNCIA fRF) 


í \TKJ0 


contra 


PICOS DE VOLTAGEM 
TRANSIENTES DE TENSÃO 


POTÊNCIA: ATINGE ATÉ 1.5 KVA 


V 


ZENTRANX 

Rua Senador Flaquer, 376/386 
Santo Amaro — CEP 04744 
Telefone 522-2411 — Sérgio 


J 


PLANSOFT 

FIQUE TRANQÜILO, JÁ CHEGARAM OS MELHORES PROGRAMAS PARA 0 SEU TK 90X 


APLICATIVOS: 

901 Contas a Pagar e Receber 48K 
JOGOS 

920 Simulador de Vóo 48K 

Sensacional e realística Simulação de vóo pilotan¬ 
do um avião de grande porte. Segue manual com¬ 
pletíssimo. 

921 Xadrez 48K 

O Jogo dos reis em versão com 10 níveis. As parti¬ 
das poderão ser gravadas para utilização ou análi¬ 
se posteriores. O computador pode sugerir as Jo¬ 
gadas. 

GAME PACKS: 

940 Game Pack 48K: 

* KNIGHT LORE: 

Participe da mais Incrível aventura por 128 telas di¬ 
ferentes. Você se transformará em Mago, Monstro, 
etc. Incríveis e fantásticos efeitos visuais. 

* MANIC MINER: 

Participe da exploração da mina. Vários telas. 

941 Game Pack 48K: 

* PSYTRON: 

Efeitos gráficos Inacreditáveis. Vários níveis. Um 
dos Jogos mais completos desta linha. 

* KONG: 

Ajude a mocinha contra o Klng-Kong. 


942 Game Pack 48K: 

* PENETRATOR: 

Você estará Invadindo o espaço aéreo Inimigo. Vá¬ 
rios níveis, opção para treino e Jogo. Possibilita a 
vocé criar sua própria cena do Jogo. Versão do con¬ 
sagrado PENETRATOR da linha trs-80. 

* Chequered Flag: 

Simulação de corrida de Fórmula Um pelos consa¬ 
grados circuitos Internacionais. 

943 Game Pack 48K: 

* FULL THROTTLE: 

Participe dos circuitos Internacionais da Fórmula 
Um em Motorclcleta. Perfeita simulação. 

* Z00M: 

Seu objetivo é proteger os refugidos dos ataques 
Inimigos. Várias cenas. 

944 Game Pack 48K: 

* CAVELON: 

Participe de uma aventura num castelo medieval. 
Vários níveis. 

* MR. WIMP: 

Que tal ajudar o barman a preparar uns sanduíches? 

945 Game Pack 48K: 

* ANDROID 2: 

Um Jogo sensacional. Efeitos tridimensionais. Vá¬ 


rios níveis. 

* LUNATTACK: 

Defenda sua nave do ataque Inimigo. 

946 Game Pack 48K: 

* TORNADO LOW LEVEL: 

Consagrado Best Seller desta linha. Pilote um Jato 
em defesa de sua cidade. Efeitos gráficos Incríveis. 

* TUTANKAMUN: 

Participe de uma aventura nos labirintos do palácio. 

980 Game Pack 16K: 

* COOKIE: 

Ajude o cozinheiro preparar seu almoço 
“CENTIPED: 

Defenda-se da centopeia 

981 Game Pack 16K: 

* JET PAC: 

Participe de uma aventura na lua, voando com seus 
foguetes portáteis. 

* SEIDDAB ATTACK: 

Defenda a cidade das naves Inimigas, usando os ti¬ 
ros poderosos de seu tanque. 

982 Game Pack 16K: 

* PSSST: 

Ajude o sapinho defender a flor dos Insetos. 

* THRUSTA: 

Sensacional Jogo num labirinto diferente. 


INFORMAÇÕES À PLANECON INFORMÁTICA LTDA. 
Áv. Água Fria, 925 - CEP 02330 - 
Fone: (011) 204-2777 São Paulo - SP 


DISPONÍVEL NA: 

A CAMBIAL — AMAROSON — ARNO — DECKER — ASSIS DATA — AUDIO — BRENO ROSSI — BRUNO BLOIS — CASA DOS GRAVADORES — ONE 
FOTO G.B. — CINÓTICA — COMERCIAL SEIXAS — COPIADORA BRASILEIRA — DIGITAL TÉCNICA — ELETRÔNICA SANTANA — FILCRIS — FOTOPTICA 
— GUERDISK — J.H. SANTOS — L.T. HAGA — MADISON — MAPPIN — MESBLA — MILTON SILVA CIA. — PÃO DE AÇÚCAR — SANDIZ — SHOP 
AUDIO E VIDEO 











































































































APLICAÇÕES DO MICRO 



micro no controle de Produção 

a 


Lilian Pastana 


Cada vez mais a tecnologia avançada e 
acessível dos microcomputadores ocupa 
espaços na indústria e no comércio, como 
alternativa de serviços eficientes e de me¬ 
lhores lucros. Até mesmo firmas de peque¬ 
no e médio porte, como a Vesper, instala¬ 
da no subúrbio carioca de Bonsucesso, se 
lançam na área da pesquisa, com o apoio 
das Universidades e do Estado, para apri¬ 
morar os programas existentes no merca¬ 
do e buscar uma eficiência que, com pou¬ 
cos recursos, e sem a ajuda da máquina, 
seria difícil conseguir. 

A Vesper optou pelo TK-2000 em apli¬ 
cações nas áreas de controle de produção 
e controle de estoque. A mecanização do 
trabalho nestes setores já rendeu, até ago¬ 
ra, um crescimento de cerca de 30 por 
cento na capacidade de produção da Em¬ 
presa, conforme afirmou seu representan¬ 
te Wilson Silveira. 

A opção pelo TK-2000 teve dois fato¬ 
res preponderantes: seu baixo custo e a 
compatibilidade com a linha Appla Segun¬ 
do Wilson Silveira, com esse equipamen¬ 
to foi mais fácil fazer adaptações dos soft¬ 
wares existentes no mercado. As vanta¬ 
gens da aplicação do computador foram 
muitas e, além de eliminar a tradicional 
"papelada" de escritório, permitiu que se 
fizesse um remanejamento de funcionários 
na empresa, deslocando pessoas para o 
setor de produção, propriamente dito. 

As desvantagens, segundo o empresá¬ 
rio, ficam por conta da falta de programas. 
O problema é que, quase todo o material 
existente é em fita cassete, e não em dis¬ 
quete, e isso vincula muito o uso do 
TK-2000 à área de vídeo (jogos anima¬ 
dos), em detrimento da área profissional. 


Para solucionar esse problema, Wilson, 
que é engenheiro eletrônico, tentou desen¬ 
volver, por conta própria, alguns progra¬ 
mas de apoio para uso na empresa. Mas, 
como o tempo era escasso e o projeto re¬ 
queria uma paciente dedicação, a empre¬ 
sa resolveu procurar apoio. Para isto, ela 
assinou um convênio com a Universidade 
Federal do Rio de Janeiro, com o financia¬ 
mento da FINEP - Financiadora de Estudos 
e Projetos. O projeto é financiado na pro¬ 
porção de 80 por cento pelo Estado e 20 
por cento pela empresa. Com isso, dois 
técnicos trabalham em tempo integral para 
atender às necessidades da empresa. 

A principal vitória, até agora, foi a de ter 
conseguido aprimorar o programa de es¬ 
toque, simplificando a operação. Antes, era 
necessária uma perda de tempo bastante 
razoável, porque cada peça da mercado¬ 
ria produzida, ventiladores no caso, tinha 
que receber baixa, individualmente. Des¬ 
ta maneira, era difícil saber quantos ven¬ 
tiladores existiam na fábrica ou quantos 
poderiam ser vendidos, etc. Agora, o pro¬ 
cesso é mais rápido, dispensando a baixa 
individual das 71 peças, e o controle se dá 
pela mercadoria completa, automatica¬ 
mente. Já na área de produção, que é di¬ 
vidida em 11 etapas, e conta com 12 fun¬ 
cionários, o controle é feito especificamen¬ 
te em cada área. Ao final do dia, com os 
dados fornecidos por cada funcionário, é 
possível se ter uma posição final sobre o 
potencial de venda total, no exato momen¬ 
to da consulta. 

A adoção desse sistema apresenta ain¬ 
da uma vantagem: a facilidade em termos 
de composição de preços, ou seja, é mais 
fácil resgatar o levantamento do preço de 


cada componente do produto final (venti¬ 
ladores, no caso), a cada dia, acompa¬ 
nhando as oscilações do mercado. 

O próximo investimento, na área de 
computadores, que a Vesper pretende rea¬ 
lizar é a compra do TK-3000, que deverá 
ser lançado brevemente, e que vai supe¬ 
rar os 128K de memória do TK 2000. Es¬ 
te novo equipamento está sendo espera¬ 
do com entusiasmo, também porque é 
compatível com o Apple lie e tem um nú¬ 
mero maior de softwares disponíveis, na 
área profissional. 

Para Wilson Silveira, a perspectiva de 
crescimento da empresa está diretamen¬ 
te ligada à aplicação de novas tecnologias, 
em todos os campos. Para isso, a empre¬ 
sa pretende renovar os contratos de pes¬ 
quisas com a FINEP. Essa tem sido uma 
alternativa barata e eficiente para superar 
as dificuldades enfrentadas pelas empre¬ 
sas de pequeno e médio porte. Ao comen¬ 
tar esse assunto, o empresário destacou 
também um ponto de grande importância 
para os consumidores de equipamentos da 
área de informática: nem sempre o que se 
anuncia, por parte dos fabricantes, corres¬ 
ponde à realidade. 

Wilson Silveira afirmou ainda que, um 
dos fatores decisivos na sua escolha pelo 
TK 2000 foi a promessa de que seriam lan¬ 
çados, no mercado, logo em seguida, mui¬ 
tos programas com aplicação voltada pa¬ 
ra a área profissional. Até agora, só exis¬ 
tem três exemplares no país. Fica a per¬ 
gunta no ar: a quem cabe a responsabili¬ 
dade de suprir essa deficiência? O desa¬ 
fio está lançado, e cada empresa, como a 
Vesper, procura uma solução, através de 
diversas vias. Senhores, façam as suas 
apostas! 


18 MICROHOBBY 







□ Assinatura Inicial Valor 

□ Renovação CrS 132.000, 

Validade: 28/02/86 


Estes preços são válidos até 28/02/86 
Fbgável em qualquer Agência 
do Banco Bradesco 


Rua do Bosque, 1234 -PABX 825-3355 Cx. Postal 54096 
CEP 01136 - São Paulo - SP 


X 


Assinante: 


Endereço: 


Validade: 28/02/86 
Valor: CrS 132.000, 

□ Assinatura Inicial 

□ Renovação 


Bradesco - Ag. 0138-4 
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Vábdo se autentcado mecanicamente pelo Banco 
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Criando um índice Alfabético 


Parte II 


Cesar de Afonseca e Silva Neto e 
Wilson José Tucci 


Na edição anterior nós havíamos inicia¬ 
do o sistema. Ficaram faltando, entretan¬ 
to, as sub-rotinas vitais ao seu funciona¬ 
mento. Neste número apresentaremos es¬ 
tas sub-rotinas acompanhadas de algumas 
explicações. 

Bem, estamos pressupondo que você já 
tenha lido o artigo anterior (Microhobby 
número 25) e de preferência, tenha digi¬ 
tado e salvo a primeira parte do programa. 
Se você está atrasado, seria bom entrar em 
dia, pois os resultados serão gratificantes. 

Após ter lido o artigo, digitado as sub- 
rotinas, você estará com o programa pron¬ 
to, ou melhor, quase pronto para ser utili¬ 
zado. Você só precisará rodar o pequeno 
programa (listagem 1) afim de criar os ar¬ 
quivos utilizados pelo sistema no seu dis¬ 
quete. Não esqueça de fazer isto, caso 
contrário, o sistema não funcionará! 

No próximo número, iremos trazer a ter¬ 
ceira e última etapa do sistema, que cons¬ 
titui as chamadas Pesquisas Gerais e Ani¬ 
versariantes. Através da primeira, você po¬ 
derá reagrupar todas as pessoas cadastra¬ 
das na sua agenda, de acordo com um 
campo em comum que elas possuem. Vo¬ 
cê poderá consultar todos os seus amigos 
que moram no seu bairro ou todas as suas 
amigas que sejam solteiras, por exemplo. 

Através da opção Aniversariantes, você 
acabará com o inconveniente de esquecer 
do aniversário de algum amigo. Bastará en¬ 
trar com um dia ou intervalo de dias, que 
o programa lhe fornecerá uma lista dos 
aniversariantes, caso haja. 

A seguir, explicaremos o ponto funda¬ 
mental do programa, que é a, localização 
e inserção de chaves no arquivo índice, que 
se encontra na memória. 

Localizando um registro 

A localização de uma determinada cha¬ 
ve no arquivo-índice é bastante rápida, 
pois ela é feita na memória, na matriz 
CH$(NP%), que contém todas as chaves 


existentes no arquivo. Esta procura pode¬ 
ria ser feita sequencialmente, ou seja, 
comparando a chave fornecida com cada 
uma das chaves existentes, mas, a fim de 
otimizar o processo, a procura é feita atra¬ 
vés do método da Busca Binária. 

O algoritmo da busca binária pode ser 
comparado àqueles que você utilizará, ca¬ 
so tivesse que adivinhar um número con¬ 
tido em um determinado intervalo (IN,FI), 
caso só lhe fornecessem dados à respei¬ 
to da sua posição relativa, ou seja, se o nú¬ 
mero que você "chutou"fosse maior ou 
menor do que o número "escondido" (o 
que você deve adivinhar). Como exemplo, 
vamos tentar adivinhar (encontrar) o nú¬ 
mero 337 num intervalo (0,1000). Esque¬ 
ça por alguns instantes que você já sabe 
qual é o número. 0 primeiro número a ser 


"chutado" deve ser 500, que é obtido pe¬ 
la média aritmética dos extremos do inter¬ 
valo. Neste caso, 500 é um número muito 
alto (maior do que 337), sendo assim, vo¬ 
cê já sabe que o número (a chave) 
encontra-se no novo intervalo (0,500), me¬ 
nor do que o anterior. O próximo "chute" 
deverá ser 250 pelos mesmos motivos an¬ 
teriores. Este procedimento deverá ser re¬ 
petido até que o número "chutado" seja 
igual ao "escondido". 

Pode acontecer que o número "escon¬ 
dido", a chave no caso do programa, não 
esteja contido no intervalo da busca. Neste 
caso, códigos de erro deverão indicar o 
ocorrido. 

A seguir, daremos três exemplos de bus¬ 
ca e posterior inserção no índice. 
Acompanhe-os. 


Exemplos 


Chave 

índice 

Erro 

Novo 

Registro no 





índice 

Arquivo (RX) 

D 

A 

2 

1 

A 

2 

— 


B 

3 


B 

3 



C 

1 


C 

1 



E 

4 


D 

5 






E 

4 


H 

A 

2 

2 

A 

2 

_ 


B 

3 


B 

3 



C 

1 


C 

1 



E 

4 


E 

4 






H 

5 


B 

A 

2 

0 

A 

2 

3 


B 

3 


B 

3 



C 

1 


C 

1 



E 

4 


E 

4 



Erro Significado 

0 A chave está contida no índice. 

1 A chave não está no índice, devendo ser inserida en¬ 
tre duas já existentes. 

2 A chave não está no índice e deve ser adicionada ao 
fim do mesmo. 
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ÍO REH PROGRAMA PARA IN 

ICIALIZAR AR8 

UIVOS 

20 HOME :01 = CHRÍ (4): 
TRZ = Í62 

25 PRINT DÍ;"MON 0,1,0" 
30 ARQ5 = "AGENDA/DADOS.T 
XT" 

40 PRINT DS:"0PEN";AR8í: 
TRZ 

50 PRINT D$:'"URITE";AR8S 
;".R0" 

60 PRINT 0: PRINT DÍ;"CL 
OSE" 

70 PRINT DÍ;"OPEN INOICE 
// 

80 PRINT Dl;"URI TE INOIC 
E" 

90 PRINT 0: PRINT DS ; "CL 
OSE" 

100 PRINT DÍ:"OPEN LIVRE 
S" 

110 PRINT D$:"URITE LIVR 
ES" 

120 PRINT 0: PRINT DS:"C 
LOSE" 

130 PRINT DS;"NOHON C,I, 
0 " 

140 END 


15000 

REM SUBROTINAS 

15010 

REM GERAIS 

15020 

REM GERAIS 

15100 

REM * LER 0 INDIC 

E * 


15120 

PRINT DS;"OPENINDI 

CE" 


15130 

PRINT DS;"READINDI 

CE" 


15140 

INPUT NPZ 

15150 

IF NOT NPZ THEN 1 

5170 


15160 

FOR I = 1 TO NPZ: 

INPUT CHS(I), 

REGZ(I): NEXT 

15170 

PRINT DS;"CLOSE" 

15180 

RETURN 


15200 

REM * GRAVAR INDI 

CE * 


15220 

PRINT 05:"OPENINDI 

CE" 


15230 

PRINT D$;"URITEIND 

ICE" 


15240 

PRINT NPZ 

15250 

FOR I = 1 TO NPZ: 

PRINT CHS(I): 

PRINT REGZ(I): NEXT 

15260 

PRINT DS;"CLOSE" 

15270 

RETURN 

15300 

V 

REM * LER LIVRES 

t 

15310 

PRINT Dí;"OPEN LIV 

RES" 


15320 

PRINT DS;"READ LIV 

RES" 


15330 

INPUT NLZ 

15340 

IF NLZ = 0 THEN 15 

360 


15350 

FOR I = 1 TO NLZ: 

INPUT RLZ(I): 

NEXT 


15360 

PRINT DS;"CLOSE" 

15370 

RETURN 

15400 

REM « GRAVAR LIVR 

ES * 


15410 

PRINT DS;"OPEN LIV 

RES" 


15420 

PRINT D$;"URITE LI 

VRES" 


15430 

PRINT NLZ 

15440 

FOR I = 1 TO NLZ: 

PRINT RLZ(I): 

NEXT 


15450 

PRINT DS;"CLOSE" 

15460 

RETURN 

15500 

REM * LER REGISTR 

0 * 


15510 

PRINT 

15520 

PRINT DS;"OPEN";AR 

8S;\L 

"-TRZ 

15530 

PRINT 05;"READ";AR 

8S;",R 

";RX 

15540 

IF RX = 0 THEN IN 

PUT URZ: GOTO 

15560 


15550 

FOR I = 1 TO NCZ: 

INPUT DCS(I): 

NEXT 



15560 PRINT DÍ;"CLOSE" 
15570 RETURN 
15600 REM * GRAVAR REG 
* 

15610 PRINT 

15620 PRINT DS;"OPEN";AR 
8S;",L";TRZ 

15630 PRINT DS;"URITE";A 
R8S;",R";RX 

15640 IF RX = 0 THEN PR 

INT URZ: GOTO 

15660 

15650 FOR I = 1 TO NCZ: 
PRINT DCKI): 

NEXT 

15660 PRINT DS;"CLOSE" 
15700 REM * BUSCA BINAR 
IA * 

Í57Q5 ckRO = 0 

15710 IN = 0:FI = NPZ 

15715 IF NPZ = 0 THEN ER 

RO = i: RETURN 

15720 IF CHS = CHi(FI) T 

HEN LM = FI 

:RX = REGZ(FI): RETURN 

15725 IF CHS > CHS(FI) T 

HEN ERRO = 2: 

RETURN 

15730 LM = INT ((IN + 
FI) / 2) 

15735 IF CHS( LM ) = CHS 
THEN RX = RE 
GZ( LM ): RETURN 
15740 IF IN = LM OR FI 
= LM THEN 
ERRO = is RETURN 
15745 IF CHS( LM ) < CHS 
THEN IN = LM s GOTO 1573 

0 

15750 FI = LM 
15755 GOTO 15730 
15800 REM COLETOR OE LI 
NHAS • 

15805 PS = ""SL = 0S8UIT 
= 0 

15810 VTAB V: HTAB H - 1 
: PRINT CHRS 
(91); LEFTS (UL$,LNG); CH 
RS (93) 

15815 VTAB V: HTAB H 
15820 INVERSE : PRINT "" 
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GUARDE ESTE NÚMERO: 
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H 
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JJ 

— 
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_ 
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_ 

11 

_ 

I— 

— 

I— 

— 

_ 
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?: NORMAL : PRINT CHRÍ (8 
>S 

15825 GET Ai:A = ASC (A 
1) 

15830 IF A = 13 THEN PR 
INT CHRÍ (93 
); SPC( 40 - PEEK (36)): 
RETURN 

15833 IF A = 27 THEN «UI 
T = l: RETURN 

15835 IF A = 8 AND L ) 0 
THEN GOSUB 
15875: GOTO 15825 
15840 IF A ( 32 OR L ) 

= LNG THEN 15 
865 

15845 L = L + 1 
15850 Pí = Pí + Aí 
15855 PRINT Al; 

15860 GOTO 15820 
15865 PRINT CHRÍ (7); 
15870 GOTO 15825 
15875 REH BACKSPACE 
15880 L = L - 1 
15885 IF L = 0 THEN Pí = 
GOTO 158 
95 

15890 Pí = LEFT1 (Pl,L) 
15895 PRINT CHRÍ (21); 
CHRÍ (95); CHRÍ (8); CHRÍ 
( 8 ); 

15898 RETURN 

15900 REM *» FORMAR TEL 

A ** 

15910 HOME 

15920 INVERSE : PRINT S 
PC( 40): PRINT SPC< 9);"S 
U P E R A G E N D A"; SP 
C( 8): PRINT SPC( 40): NO 
RMAL 

15930 VTAB 6: HTAB (40 - 
LEN (MÍ(OP) 

)) / 2: PRINT MÍ(OP) 

15940 MTAB VI 

15950 FOR I = 1 TO NC%: 

PRINT NCKI); 

LEFTÍ <PTÍ,HI - LEN (NC 
Í(D) - 

2); CHRÍ (91); SPC( L(D) 

; CHRÍ ( 


/: NEXT 

15955 VTAB 23: HTAB iO: 
INVERSE : PRINT "(ESC) VOL 
TA AO MENU": NORMAL 
15960 RETURN 
16000 REM MENSAGEM DE E 
RRO 

16010 VTAB 2 ' 3 : CALL - 8 
75: VTAB 23 : HTAB 1: INVER 
SE : PRINT MS1 ; : NORMAL : 
PRINT SPC( 1);"PRESSIONE 
UMA TECLA";: GET Rí 
16015 VTAB 23: CALL - 8 
75: VTAB 23: HTAB 10: INVE 
RSE : PRINT "(ESOVOLTA AO 

MENU": NORMAL 
16020 RETURN 
16100 REM PEGAR A CHAVE 

16105 HOME 

16110 MSI = "INEXISTENTE" 

16115 INVERSE : HTAB 8: 
FOR I = 1 TO 
LEN (NI): VTAB 4: PRINT 
MIDI (N 

1,1,1)?: POKE 36, PEEK (3 
6 ) + 1 + 

3 * (I = 5): NEXT : NORMA 
L 

16120 VTAB 7: HTAB (40 - 
LEN (HÍ(OP) 

)) / 2: PRINT MÍ(OP) 

16125 VTAB 23: CALL - 8 
75: VTAB 23: HTAB 10: INVE 
RSE : PRINT "(ESOVOLTA AO 

MENU": NORMAL 

16130 VTAB lí: HTAB i: P 

RINT "CHAVE:" 

16135 V = ii:H = 8:LN = 8 
: GOSUB 15800 

16140 IF OUIT THEN 300 
16145 IF Pí = "" THEN 16 
135 

16150 CHI = Pi 
16155 GOSUB 15700 
16160 IF ERRO THEN GOSU 
B 16000: GOTO 
16135 

16165 RETURN 


E onde você encontra tudo para 
os micros da linha TK. 

• SOFTWARE (Jogos e Aplicativos) 

• ACESSÓRIOS 
• PERIFÉRICOS 
• LITERATURA 

• E O NOVO TK 90X - MICRODIGITAL 


o micro 
cheio de 
programas. 



' JOGOS APLICATIVOS 


CIBEFVTRDn 

SOFTWARE 


• APLICATIVOS TK-85 / TK-2000II EM FITA 
E DISKETE ... . ... 

Microidéia 

PASSE SEU PROGRAMA EM FITA SEM 
PROBLEMAS UTILIZANDO A INTERFACE LH-3. 
CONHEÇA TAMBÉM O MONITOR LH-12 

R.C.C. 


FAÇA O CURSO DE BASIC NA MELHOR ESCOLA DE S.PAULO 




MÜGMOPfiTfi 

informática Itda. 


A MICRO BOARD 
GARANTE. 


Senta que o 
Leão é manso! 


TK-90, Apple, TRS-80, TK-85 

• Cont. Estoque 

• Cont. Crediário 

• Cont. Ord. Serviço 

• Ger. Bco. de Dados 

• Geografia 

• Matemática 

• Contas a Pagar e Receber 

• Mala Direta 
•MB Texto 

• Cad. Clientes 

• Cont. Projeto 

• Inglês 

• Corret. Seguros 


Solicite uma lista descritiva dos 
programas, especificando o seu 
microcomputador. 

Micro Boa rd Ltda. 

Caixa Postal 18968 — SP 
São Paulo — CEP 04699 
Fone: (Oll) 532-0923 543-9163 




























































































































s 

-= INFORMÁTICA 

2 


o 

APPLE 

ZX SPECTRUM 

3 

TRSCOLOR 

2 


oc 

DRIVES, MONITORES, 
INTERFACES, IMPRES- 

UI 

SORAS, MODEMS, SU¬ 
PRIMENTOS, SINTETI- 
ZADOR DE VOZ, SOFT- 

0) 

WARE. 

UI 

o 

< 

K 

3S 

O 

UI 

2 

CURSOS E 

UI 

TREINAMENTO 

(9 


i 

BASIC 1 E II 

GRÁFICOS 

EDITOR DE TEXTO 


g 




y> 

UI 

o 

a 

PREÇOS E QUALIDADE 

AO SEU ALCANCE 

(011) 

-J 

O 

<0 

543-9859 • 533-4971 

RUA CALIFÓRNIA, 1.000 
BROOKLIN - SÃO PAULO 

L_ 

_ J 



FALANDO 

A MESMA LINGUAGEM 


Falando a mesma linguagem dos empresários do 
setor, a equipe da EDIMAQ tem muito mais 
condições, até técnicas, de colocar seu produto no 
mercado, de forma racional e objetiva. 


Além disso, a EDIMAQ mantém uma estrutura 
funcional, que pode cuidar da produção de todo 
material promocional de sua empresa: catálogos, 
prospectos, mala direta, anúncios classificados e 
Markenting em geral. 


Consulte-nos, nós falamos a mesma linguagem,a 
linguagem da informática. 


0R1fO pibliddddái 


R. Domingos de Moraes, 254 l.°and. 

Cj. 102 A Tels.: (011) 849-3772 549-7344 
872-0309 S.P. 


SOLUÇÕES INTELIGENTES E RACIONAIS 

O microcomputador é hoje, sem dúvida, uma necessidade na vida 
das empresas e nos lares, para uso em estudos e lazer. 

Diante disso com vistas a essa realidade, a Tropical Informática Ltda., 
atende seus clientes, através de uma equipe técnica altamente 
especializada no setor. 

O usuário recebe orientação correta para a aquisição do equipamento 
necessário as suas necessidades! 

Na área de treinamento a Tropical tem tido a satisfação de ver seus alunos 
concluírem os cursos, comprovadamente, prosramado em computadores. 
Os jovens usuários de computadores pessoais, necessitam constantemente 
de orientação e suporte técnico para tirar o máximo proveito 
de seus equipamentos. 

Por essa razão, estamos sempre nos atualizando quanto as novidades 
em equipamentos e software para melhor atendê-los. 

Nossa meta é dar atendimento personalizado aos seus clientes para que 
eles tenham noções para o seu desenvolvimento pessoal e profissional! 
Venha nos conhecer! 

Você terá a oportunidade de verificar porque nosso lema é 
SOLUÇÕES Intelisentes e Racionais. 


i-fíua toa/ifetnia, 4.000 - SBuxJUin - 

&oru*: 543-9859 - 533-4974 044 



QUADROS COM 
CAVALETES 

quadros fixos 



QUADROS BRANCOS 


PARA CANETAS E TINTAS APAGAVEIS A SECO 

LOUSAS VERDES, QUADROS DE FELTRO FLIPCHART, QUADROS 
BRANCOS, QUADROS QUADRICULADOS E TODO MATERIAL PARA 
TREINAMENTO E CONTROLE VISUAL. 



SISTEMAS SUPERQUADROS 

RUA INDEPENDÊNCIA. 64 CAMBUCI SAO PAULO FONE: 278-4196 


TELAS FIXAS, TELAS PORTÁTEIS 
PARA AUDITÓRIOS, CINEMA ETC. 




































• MICROCOMPUTADORES D€ 

8 € 16 RITS 

• ESTABILIZADORES 

• MESAS 

• MONITORES 

• MICROTELA 

• SOFTWARES 

• IMPLANTAÇÃO DE SISTEMAS 

• SUPRIMENTOS 

DELTASOFT MICROINFORMÁTICA LTDA. 

AV. REBOUÇAS, 3642 - CEP 05402 - SÃO PAULO 

TELS.: (011) 852-2502 




































Posição de Ataque 


Uma Base de Defesa Aérea detecta, em seu radar, o avanço 
de objetos voadores, não identificados, vindo em direção à 
Terra. Espalha-se a notícia e o pânico se instala. O que fazer?... 


Você agora faz parte da equipe de defesa da Base e ouve a 
ordem determinada que é bastante objetiva: "Formação de Ata¬ 
que". Este é o momento para testar seu novo avião, anti-ataque 
aéreo, equipado com "mira anti-intrusos" que lhe ajudará a com¬ 
bater os alienígenas, possibilitando-lhe acertar o alvo com maior 
facilidade. 

A ordem que foi transmitida é a seguinte: elimine a nave ini¬ 
miga, a qual você observará, através do seu radar. Para realizar 
esta missão, você possui, em sua nave, uma mira especial e um 
disparador de laser. 

Prepare-se, então, para o ataque e imagine que os teclados de 
seu micro são os inúmeros botões de comando de um avião. Pen¬ 
se, ainda, que a tela de seu pequeno TK é, nada mais nada me¬ 
nos, que o visor do radar de sua "máquina"! 

Operação do programa 

Para perseguir o inimigo, da nave estrangeira, você tem à dis¬ 
posição as teclas 5, 6, 7 e 8. Para acionar o potente disparador 
de laser, use a tecla 0. 

Lembre-se que sua tarefa só será bem sucedida se você des¬ 
truir 10 das naves, entre as muitas existentes. Faça isto antes 
que seu tempo se esgote. 

A "Posição de Ataque" é composta de dez níveis de dificulda¬ 
des. Cabe a você determinar em que nível deseja jogar. A dife¬ 
rença de um nível para o outro está na velocidade com que seu 
tempo vai se esgotando. 

A tela do jogo apresenta uma mira e dois disparadores de la¬ 
ser, que estão localizados na parte inferior de cada canto da te¬ 
la. No centro do seu vídeo, o programa apresentará o tempo que 
lhe resta para a realização da missão e no lado esquerdo é mos¬ 
trado um marcador, que registrará quantas naves serão abati¬ 
das. Você poderá visualizar melhor a formação da tela do jogo 
na figura 1. 



Notas Gráficas 
Unha 

215 GRAPHIC A. 

224 GRAPHIC A. 

2000 GRAPHIC A. 

2001 GRAPHIC A. 

Observe, na figura 2, a formação gráfica da nave usando o re¬ 
curso da UDG. 


TJTTTT 


□■■■ 


t m r u 

LMMD 

iiimm 

■NttttI* 

n lT y -j 


AECDEFGHIdKL m n o P Q R S T U 
HBCDEFGHIJkl m nop q rstu 

fi Figura 2. 


Listagem do programa Radar. 


1 PAPER 0: BORDER 5: INK 5: C 
LS 

’ ?!? LET 

105 GOSUB 1000 

110 PLOT 125,62: DRfiU 0,60: PLO 
T 95,32: DRRU 60,0 

115 CIRCLE 125,92,30: CIRCLfc 12 
5,92,25: CIRCLE 125,92,10 

120 FOR n =0 TO 100: PLOT «INT ( 
255*RND)),íINT Í175*RND)): NtXT 
n 

122 PRINT FLASH 1; INK 2; BRIGH 
T HAT 21,0; ,, T'; FLASH 1; INK 2; 

BRIGHT 1;AT 21.31;“P" 

125 INPUT INK 0; PAPER 7; "Grau 
de d iri i cu d a d e ? (1-10)”;gr 
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201 LET X =10: LET y=15 

210 LET X =X +INT (2+RND) -INT (2* 
R ND) + CINKEY $ = "6") -(INKEY$ = "7") : 
IF X >=21 OR X<=0 THEN LET X =0 

211 LET 4=4+INT «2+RND3-INT (2+ 
R N D) + í IN K E Y 4 = ‘ : S " ) - «IN K E Y $ = “ 5 " ) : 
IF 4>=31 OR 4 <=0 THEN LET y=0 

215 PR INT INK 6; OUER 1; PT X , 4 
"tí" 

223 IF INKEY4 = "8" THEN PLOT 0,0 
: DRRU INK 3; OUER 1;125,92: PLO 
T 255,0: DRfiU INK 3; OUER 1-130 
■92: SOÜND =007,10: PLOT 0,0: DR 
RU OUER 1;125,92: PLOT 255,0: DR 
RU OUER 1;-130,92: IF X=10 RND y 
=15 THEN FOR n=40 TO 50: PRINT O 
UER 1;RT X,4;CHR4 (n): SOÜND .00 
1,20: PRINT OUER 1;RT x,y;CHR$ ( 
n): NEXT n: GOSUB 2000 

224 PRUSE 4: PRINT OUER 1;RT X, 
4 ; "foi" 

225 LET t=t-ar: PRINT PAPER 7; 
INK 0 ; RT 21,13 ; "Te IBP o : " t; " 

: IF t<=0 THEN GOTO 3000 
230 GOTO 209 

1000 FOR K=0 TC 7: RERD C: PCKE 
USR "a"+K,C: NEXT K: RETURN 

1001 DRTfl BIN 00000000 

1002 DRTfl BIN 01000010 

1003 DRTfl BIN 10000001 

1004 DRTfl BIN 10111101 

1005 DRTfl BIN 11100111 

1006 DRTfl BIN 10111101 

1007 DRTfl BIN 10000001 

1008 DRTfl BIN 01000010 

2000 FOR n=7 TO 1 STEP -1: PRUSE 
5: BORDER n: NEXT n: LET p=p+l: 
PRINT PAPER 7; INK 0;AT 21,8;"H 
: " ; P 

2801 PRINT OUER 1;flT X,y;"W" 

2802 IF p =10 THEN GOTO 4000 
2004 GOTO 200 

3000 FOR h =0 TO 200: SOÜND .009, 
h/10: POKE « 22528 4 i INT f7S3+RND) 
n , «INT Í255+RND) ) : NEXT h: SOUN 
D 1,40: PRINT INK 0: PAPER 6; HL 
ASH 1;flT 10,8; " D E R R O T A D 
O “ 

3002 PR INT n 1 ” P r e s s i o n e u m a t e c 
La para c o m e c a r " : PRUSE 8 : RUN 
4800 SOÜND .2,-20: SOÜND .5,48 
4001 SOÜND .2,28: SOÜND .5,48 
4082 PRINT INK 8; PAPER 5; FLASH 
1;RT 10,8;" U I T O R IR GO 
TO 3082 

5008 REM SeU Ob j £ tiVO £ S13 £ fíi d£ 
£truir a nav£ inimiga, para faze 
- i. O V O C £ d i £ p O £ £ fii £ U 3 na V £ d £ U 

fiia m i r a e um d i s pa r ador lazer. 

5801 REM Para perseguir o inirnig 
o utilize as teclas 5,S, 7 ,8 e pa 
ra atirar use a tecla 0. 

5802 REM fi missão so sera bem su 
cedida se voce destruir dez nave 
s inimigas antes que seu tempo s 
e esgote. 

5803 REM Este jogo e composto de 
dez niveis de dificu idade. 







































































Cartões de Natal 


Uma maneira original de felicitar o Natal e o Ano Novo para 
todos aqueles que preferem trocar a caneta pelo teclado de 

seu TK 90X. 


Este programa permite elaborar cartões de felicitações das fes¬ 
tas, onde você poderá optar pela mensagem padrão, já desen¬ 
volvida pelo computador, ou fazer o seu próprio texto. Existem 
dois tipos de cartão. A escolha é feita pelo item quatro, apresen¬ 
tado no menu. 

Ao rodar o programa é exibido um menu com sete opções de 
escolha. Como no princípio, geralmente, o usuário não conhece 
o programa, recomendamos que a opção seja feita pelo item cin¬ 
co, onde este, apenas demonstra o que o programa faz. Já fami¬ 
liarizado com ele, vamos à elaboração do primeiro cartão; tecle 
"1" para entrar com a data do ano. Em seguida, digite "2" para 
informar quem está enviando a mensagem. Agora tecle "3" e 
dois itens serão apresentados. Você irá então optar pela mensa¬ 
gem padrão ou elaborar a sua, isto ficará ao seu critério. Apenas 
uma pequena observação: neste item, de número três, para se¬ 
lecionar "A" ou "B" proceda da seguinte maneira: digite (CAPS 
SHIFT + a letra escolhida). O item quatro pede que você esco¬ 
lha o modelo do cartão para imprimir a sua mensagem, à sua 
disposição estarão dois tipos de cartão, conforme ilustram as fi¬ 
guras 1 e 2. 

O item cinco é um demonstrativo do funcionamento do pro¬ 
grama. Sendo assim, "pule" este item e passe para a opção de 
número seis, onde esta irá realizar a impressão do cartão esco¬ 
lhido juntamente com a mensagem que será escrita. A opção 
de número sete apaga os dados anteriores, para que se possa 
introduzir novas informações. 

Notas sobre o programa 

O programa apresenta uma estrutura simples, não oferecen¬ 
do muita dificuldade na sua digitação, apenas os cuidados bási¬ 
cos que se deve tomar ao digitar um programa. 

Para que não haja inconvenientes, apresentamos a seguir os 
itens principais referentes à estrutura do programa. 


Linha 

25 - 42 

45 - 80 

90 - 470 

500 - 900 
903 - 968 
2000 - 2140 
3000 - 3420 

9999 


Função 

Exibe o menu na tela; 

Define as opções; 

Desenha o segundo formato da opção 1; 
Desenha o primeiro formato da opção 1; 
Desenha o formato da opção 2; 

Executa a parte de demonstração; 

Executa a opção "3" referente à parte do 
texto; 

Salva o programa em fita cassete. 


Figura 1. 
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10 LET M =8: CL5 : CLEPR 
28 LET M=8: PRINT PT 1,4; "Ent 
re com os dados" 

25 PRIWT PT 5,4;"1.Pn 0 Na t a Lic 
i0 ", PT 4,7; 

38 PRINT PT 9,4;"3.ESCOlha um 

t £ x t 0 " 


32 PRINT PT 7.4;“2.Emitente" 

35 PRINT PT 11,4; "4. Mo d £ l O 1 /2 


33 PRINT PT 13 ■ 4 ; "5.EX P l iC a C 3 0 
dos Modelos" 

40 PRINT PT 15 . 4 ;"6.imprimir" 
42 PRINT PT 17;, 4 ; "7 . Dados NOVO 

C. “ 

45 IF INKEY$ = "1" THEN PRINT PT 
21,0;"Pno Natalício": INPUT P: 

PRINT PT 21.0;" ",PT 

28,1;" ": GOTO 45 
48 IF INKEY$=”2" THEN PRINT PT 
2 1 ,8; " Emit £ n t £ " : INPUT E $: PRIN 

T Pt 21,0;" ": GOTO 4b 

50 IF INKEY?="7” THEN GOTO 10 
55 IF INKEY?=“3" THEN GOTO 380 

8 

65 IF INKEY?=“6" THEN LET M=6: 
GOTO 2580 

78 IF INKEY$=”4“ THEN PRINT PT 
21,0;"1/2": INPUT K: PRINT PT L 

1,0;“ ": G05UB 5800 

'75 IF INKEY?=”5" THEN LET M=6: 


BI 


1 






d 


GOTO 2808 
83 GOTO 45 
98 REM "Quadro 2" 

91 CLS 

92 PRINT PT 3,5;"4",PT 6,4;"*" 

, PT 7,8; P i il.4; "*" , PT 14,6, 

" *" , PT 18,5; ” *" , PT 19,2.;"*", PT 3 
,19;"*",PT 4,26;"*",PT 8,24.;"*", 
PT 8,28;"*",PT 11.27;“*",PT 15,2 
5.;"*", PT 19,23:"*". Pt 20,27.;"*" 

93 PRINT PT 21,1; 'VWWVWWW 

AswmwAmv 


34 

LET £ 

= 0 



95 

PRINT 

PT s,0;V 


95 

PRINT 

PT s , 31; "*■" 


37 

LET £ 

=£+! 



95 

IF £ < 

>22 THEN GOTO 95 


100 

PLOT 

55,24: 

DRPU 32,112 


110 

PLOT 

55,24: 

DRPU 48,8 


120 

PLOT 

104,24: 

DRPU -12,112 

130 

CIRCLE 55:145,10 


140 

PLOT 

37,55: 

DRPU 6,-8 


150 

PLOT 

103 : 80: 

DRPU 8,32 


150 

PLOT 

183,112: DRPU -7,- 

17 

170 

CIRCLE 188,96,4 


150 

PLOT 

104,24: 

DRPU 12,148 

190 

PLOT 

72,152: 

DRPU 8,16 


200 

PLOT 

72,32: 

DRPU 16,104 


210 

PLOT 

35:32: 

DRPU 2,184 


300 

PLOT 

123=24: 

DRPU 8,32 


310 

PLOT 

136,56: 

DRPU 10,12 


320 

CIRCLE 145,75,5 


330 

PLOT 

154,72: 

DRPU 8,33 


335 

CIRCLE 160,112,18 


340 

PLOT 

168,184: DRPU -16, 

16 

350 

PLOT 

175,24 

DRPU -18,48 

360 

PLOT 

166 - 72 

DRPU 8,32 


370 

PLOT 

125,24 

DRPU 43,0 


350 

PLOT 

152,50 

DRPU -8,8 


390 

PLOT 

176,128: DRPU -16, 

15 

400 

PLOT 

168:32 

DRPU -8,64 


410 

PLOT 

152.29 

DRPU 8,67 


420 

PLOT 

135 =23 

DRPU 4,27 


430 

PLOT 

135,56 

DRPU 12,9 


440 

PLOT 

40,175 

DRPU -24,- 

23 

450 

PLOT 

216,175: DRPU 24,- 

23 

470 

PH USE 

: iço 



430 

RETURN 



500 

REM "Quadro 

!„ 


501 

CL 5 




502 

PRINT 

P;T 2,: 

L 7.1 .« HT -j* , 

11 


*“ ,PT 5,6; "*" ,PT 6,25; "*“,PT 15 

,6;"*",RT 17,26;"*", PT 18,3.;"*", 
PT 18.28;"*",PT 19.11; "*",PT 20, 
29.;"*” 

503 PRINT PT 10,13; "Na t al“,PT 1 
1,15;P 

504 LET S=0 

505 PRINT PT s .0; “«*" 

586 PRINT PT S,31;"s a " 

587 LET S=S+1 

508 IF £022 THEN GOTO 505 


509 PRINT PT 0,1 

wrnmwAV 

528 RLOT 123,32 
530 PLOT 144,72 
548 PLOT 184,38 
558 PLOT 144,184 
568 PLOT 128,144 
578 PLOT 112,184 
588 PLOT 


ÃW.V.V.V.V.* 


DRPU 16,48 
DRPU 40,16 
DRPU -48,16 
DRPU -16,48 
DRPU -16,-48 
DRPU -40,-16 
,88: DRPU 48,-16 
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PROGRAMAS 


590 

PLÜT 112:72 


DRPU 15,-40 


2050 

GOSUtí 500: CL 5 

500 

PLÜT 125:144: 

DRPU 0,24 


2050 

PR INT PT 2,12.1 ” Op C 5 0 1" , fiT 

510 

PLÜT 115:120: 

DRPU -24,48 


b , 5; 

" Se gund 0 FO rfíia t O " : PPUSE 188 

520 

PLÜT 112=104: 

DRfiU -72,64 


: CL 

3 

530 

PLÜT 55:95: 

DRfiU -88,24 


2070 

GÜSUB 90 

540 

PLÜT 72:55: 

DRPU -72,8 


2050 

PPUSE 500. CLS 

550 

PLÜT SS..S0: 

DRfiU -88,-24 


2090 

FR INT HT F : 5 ; ÜP C ã 0 d £ D£ S £ 

550 

PLÜT 112:72 


DRPU -72,-72 


n h o s 

“,PT 5,13; “üp cã 0 2“,PT 8,9; “ 

570 

PLÜT 120:45 


DRPU -16,-48 


F o r m 

â 1 0 S i f» P 1 £ s “ : PPUSE 100 : CLS 

550 

PLÜT 125:32 


DRPU 8,-32 




590 

PLÜT 135:45 


DRPU 16,-48 


2100 

GÜSUB 900 

700 

PLÜT 144:72 


DRfiU 72,-72 


2110 

PPUSE 500: CLS 

710 

HL 01 168,80 


DRPU 80,-24 


2120 

PR INT PT 4,12 ; “ T£ X t 0 “ , PT 7 , 

720 

PLÜT 154..SS 


DRPU. 71,0 


0 ; “Cp cao P - Fax to original -hi 

730 

PLÜT 144,104: 

DRPU 72,63 


10 , 0 

; " üp c a o B - üo c £ d i g i t a a fíi £ 

74-0 

PLÜT 135:120: 

DRfiU 24,47 


nsagera": PfiUSE 200 : CLS 

790 

IF M =6 THEN 

RET UR N 


2130 

GÜSUB 3308 

500 

PfiUSE 20: CQPY : GOTO 90 


2140 

PfiUSE 508: CLS 

900 

ÜL5 




2150 

PRINT PT 11 , 4 ;"fi seguir o M 

Q 0 

PRINT PT 2,;: 

5; 

" * " , PT 2,19.;"* 


a n u 

de opcoes”: PPUSE 188 

■' , fiT 

5,5;"*",PT 5 

3 

3 ; " ±“ , PT 10,5.; 


2150 

GOTO 18 

"*" .fiT 13,5 ; "*" , PT 16,4; " *" , fiT 1 


2500 

LET M=8: CLS 

3,3; " 

, PT 5:27; - 

, PT 5,24; “* 5 ‘ , 


2510 

GOSUB B 

P;T 2, 

2! O ; ■+• : HT IL 4 : 

6.;"*", PT 19,23 


2520 

PfiUSE 58: COPY : CLS 

; *' 





2530 

GÜSUB U 

904- 

PRINT P;T 10 

, 11;“Na ta 1 “, PI 1 


2540 

PfiUSE 288: COPY : CLS 

2, li; 

P 




2550 

GOTO 28 

910 

CIRCLE 120,64,50 


3000 

CLS 

915 

CIRCLE 120,: 

132 , 19 


3010 

PRINT fiT 7,7;"fi.Texto 0rigi 

920 

CIRCLE 120 : , 

132 : 4 


n a l “ 

, fiT 9,7;"B.Diqitar Texto" 

925 

ÜIRÜLE 112: 

140 : 2 


3020 

IF INKEY$="fl" THEN LET U=33 

930 

CIRCLE 125 ; : 

140 , 2 


00 : 

PfiUSE 28: GOTO 20 

935 

PLÜT 115.-12; 

3 

DRfiU 8,0 


3030 

IF INKEY$="B" THEN CLS : PR 

94-0 

PLÜT 104 , 15; 

- 

- 

DRfiU 32,0 


INT i 

RT 21=8;"DiQitar o Texto": I 

94-5 

PLÜT 112:15; 


DRfiU 0,16 


NP UT 

U$: LET U =3488 : CLS : GOTO 

950 

PLÜT 112..15S 

DRPU 16,0 


20 


QFR 

PLÜT 125,155 

DRfiU 0,-16 


3040 

GOTO 3820 

950 

PLÜT 112,15 


DRfiU 64,112 


3300 

CLS : PRINT PT 6,1;"FELIZ N 

952 

PLÜT 175:125 

DRfiU 0 , 16 


PT PL 

E PROSPERO fiNO NOUO”,flT 18, 

954- 

PLÜT 175 : 12; 

5 

DRfiU 8 , 16 


7 ;“ Sa 0 os votos d a “ ,PT 15,12;E$ 

956 

PLÜT 175,125 

DRfiU 16 , 16 


3310 

RETURN 

955 

PLÜT 45,14: 

DRPU 170,0 


3400 

CLS 

1000 

RET UR N 




3410 

PRINT PT 2:0;ü$ 

2000 

CL 5 : LET M 

=5: LET P = 1955 : 


3420 

PRINT PT 19:9;E$ 

LET E$ = “ 


* * 


3430 

RETURN 

2010 

PRINT PT 2,; 

5. 

; "üpcao de Dese 


5000 

IF K = 1 THEN LET B=500: RETU 

n h o s ‘ 

* ,PT 5.13; !1 üp cao 1 " PT 5,10; 


RN 


"FO rfiiS to Dup lo *• 

PPUSE 100: CLb 


5010 

IF K =2 THEN LET B=900: RETU 

PRINT PT 5,5; “Primei ro Formato 


RN 


** 





5020 

GOTO 5000 

2020 

PPU5E 100: CL5 


9999 

SPUE “ NPTPL“ LINE 1 

2040 

GüSUB 500 





■ 


Batalha de Tanques 

Duas frentes de luta se encontram no campo de batalha. Suas 
principais armas são poderosos tanques de guerra. E, 
adivinhem quem é um dos combatentes? 

Você... 


Em pleno campo de batalha está você, dirigindo um enorme 
Tanque e enfrentando inúmeros outros, além de vários obstácu¬ 
los à sua frente como bujões de combustível, jogados no seu 
caminho, propositadamente pelos adversários. 

0 seu objetivo deve ser combater os outros Tanques. Para is¬ 
to é necessário fugir deles antes que acabem lhe destruindo. 


Mas,lembre-se que na fuga você tem que acabar com os bujões 
à sua frente. Eliminando a maior parte desses obstáculos (15 tan¬ 
ques), você poderá vencer o inimigo. No entanto, cuidado! 0 Tan¬ 
que da Frente inimiga poderá atingí-lo com um só tiro e assim, 
você estará liquidado. Para que isto não aconteça, seja rápido 
em seus tiros. 
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Os disparos de seu Tanque podem ser dados na direção hori¬ 
zontal e vertical porém, nunca na diagonal. Desta forma, man¬ 
tenha uma certa distância e durante sua fuga percorra caminhos 
diferentes, para evitar a aproximação. Tente se esconder atrás 
das árvores ou das pirâmedes. Mas, isto deve ser feito sem que 
seu inimigo perceba a manobra. 


Utilizando o programa 

Para movimentar o seu Tanque, você terá à sua disposição, qua¬ 


tro teclas que lhe ajudarão a fugir do inimigo. 

O jogo apresenta também três níveis de dificuldade, os quais 
o próprio jogador poderá determinar antes do início da 
perseguição. 

A tela é composta de árvores, pirâmides, bujões de combustí¬ 
vel e acima, do lado esquerdo do vídeo, você visualizará o placar. 

Para obter os desenhos, que aparecem em algumas linhas do 
programa, basta pressionar CAPS SHIFT + TECLA 9, seguido 
da letra correspondente à figura desejada. 

A seguir, observe as notas gráficas, referentes as linhas e boa 
sorte! 


Notas Gráficas 

Linha 

10 

GRAPHIC 

AB. 


// 

CD. 

210 

GRAPHIC 

CD. 

405 

GRAPHIC 

AB. 

605 

GRAPHIC 

E. 


" 

F. 

805 

GRAPHIC 

G. 


99 

H. 

2210 

GRAPHIC 

K. 


99 

CD. 

2310 

GRAPHIC 

K. 


99 

AB. 

2410 

GRAPHIC 

K. 


99 

E. 


99 

F. 

2505 

GRAPHIC 

K. 


n 

G. 


n 

H. 

6000 

GRAPHIC 

LL. 


99 

LL. 

7400 

GRAPHIC 

L. 


// 

L. 

9060 

GRAPHIC 

1 . 

9070 

GRAPHIC 

JJJJJ. 



JJJJ. 



H B C D £ F G HIJ K L M N Ç P 0 R ST U 

.áEr^fe : ;N q o u ü a o Ç ç 

GRAPHIC E. 


O 


r~l'' 



I 


\ 1 í 


l ; 





bL 

n 

JJSSS31 

Tdmm 

Í3ilD«G 

USBSSBS 


fl B C D £ F G HIJ K L M N O P Q R 5 T U 

:fflF3feàWI^::Nfiüüü ã õ c c 

H = * 

GRAPHIC A. 


!- 



§ ! 










< 1 


I333B3SS 


□3m m 

! íhbsbs 

: m«o 

■■■■IS 


fi B C B E FG HIJ K L M N 0 P Õ R S T U 
■SE- -A i;WÕDÜÜ ã Õ Ç Ç 

C=a 

GRAPHIC C. 



RBCDEFGHIJ KLMNOP9RSTU 

:|NÕÕÜÜãÕÇÇ 

GRAPHIC F. 


!» 

—: 


ThT 




1 I 1 j 



L J-LL 


SISESSsl 


m*m\ s i Qj 

iiiisi n 

□«roEngj 

iisssctn 


H B C D E F G HIJ K L H N ü F 

jfcrafc. ■ : ;N P O L 

E =E 


Oh: St ü 




GRAPHIC B. 



Bissssr 

lllllidj 


RBCDEFGHIJKLMN0P0R STU 

'.mrm.- • = : n õ õ uü ã õ Ç ç 

D=fc. 

GRAPHIC D. 



p. B C D E F G HIJ K L M N 0 PO R ST U 
|E^a6- áSíflí*' >NSÕÜÜ S Õ Ç Ç 
G =íi! 


GRAPHIC G. 
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a 


ff 

ff 

"I —[~ 

444 

•í 

1 ■ fe 

ffi 


44 

ft 
4—f- 




HFK 



oniainir 

imirjjsr 

■iuiulir 

amimsr 

jSSlllf 

j*L 


H B C D B F G MIJ K L M N ü P Q R 5 T Ü 
'te YNRÕÜÜ I Õ Ç V 

H=f 

GRAPHIC H. 


□■■■■■■□ 

iiimii 

2 S 2 S 2 ESZ 

□1212120 


RBCDEFGHI J K L !i N 0 P Q R ST U 
■•INÕõÜÜãõvC 

GRAPHIC I. 



RBCDEFGHIJKLMNOPQR5T U 
rà&wmi* ilNÕÕÜÜãÕÇÇ 

GRAPHIC J. 



1888 
ESS8SS 
ISS8S 
1888gU 

isffi 



RBODEFGHIJKLMNOPOR STÜ 
•teièWl# : : N ã Ü Ü Ü 8 õ Ç Ç 
K =» 

GRAPHIC K. 


RBCDEF G HIJ K L MNÜ PÕR5T U 
: : NÕOÜÜ ã õ Ç Ç 

L = 

GRAPHIC L 


5 BüRDER 6: PRPER 7: CLS 


805 PRINT INK 4;RT X,Y ; "ffi " jRT X 

10 FDR Z=i TO 4: FOR N=1 TO 7: 


+1 ,Y 

SOUND .1,N: PRINT INK N;RT 10,1 


810 IF RTTR (X+2.Y)=13 THEN LET 

0 " .fig-T3nque® ” : WEXT N: NEXT 2: 


NUM=NUM+1 

CLS 


990 LET U=2 

20 PRINT INK O; RT 5,12 "Te C L aS 


2050 IF RBS (X-U3>RBS (Y-B3 THEN 

";RT S,10; " i-E£Ruerd a” ; RT 9,10;“ 


GOTO 2080 

2-Di rei ta" ; RT 10 , 10 .; "0-Sobe " RT 


2060 IF B > Y THEN LET B=B-NI: GOT 

11.10;"9-Des ce " 


0 2200 

30 POKE 23658,8 


2070 IF B <Y THEN LET B=B+NI: GOT 

160 INPUT "Escolher 0 nível de 


0 2300 

d i f i 1 C U d 3 d e (1-33 " ; NI 


2080 IF X<U THEN LET U=U-NI: GOT 

170 CLS : GOSUB 9000 


0 2400 

200 IF RTTR «X/y-13 =11 THEN LET 


2090 IF X>U THEN LET U=U+NI : GOT 

Y =Y + 1 


0 2500 

210 PRINT INK 0;RT X,Y;"3fc" 


2200 IF RTTR ÍU,B-11=12 THEN LET 

220 IF RTTR ( X/Y-13 =13 THEN LET 


U=U+2: GOTO 2500 

NUM=NUM+1 


2210 PRINT INK 3 ; RT U.B+2.;"*" : L 

390 LET U = 1 : GOTO 2050 


ET P =1 : PRINT INK 0 ; RT U,B.;"^fc": 

400 IF RTTR (X . Y+2 3 =11 THEN LET 


GOTO 2510 

Y =Y - 1 


2300 IF RTTR CU,B+23=12 THEN LET 

405 PRINT INK 0 ; RT X/Y;".ffir" 


U=U+2: GOTO 2400 

410 IF RTTR (X.Y + 2 3 =13 THEN LET 


2310 PRINT INK 3 ; RT U,B-l; : L 

NUM=NUM+1 


ET P =2 : PRINT INK 0 ; RT U,B ; 

590 LET U = 1 : GOTO 2050 


GOTO 2510 

600 IF RTTR ( X - 1.Y3=11 THEN LET 


2400 IF RTTR ÍV-1,B3=12 THEN LET 

X=X + 1 


u=u+i 

605 PRINT INK O ; RT X , Y.; " jès" RT X 


2410 PRINT INK 3 ; RT U+2.B;"»": L 

+ 1 ,y; "Et" : 


ET P =3 : PRINT INK 2 ; RT U,B ; " à" >H 

610 IF RTTR ( X — 1.Y3=13 THEN LET 


T U+l.B;“ffi": GOTO 2510 

NUM=NUM+i 


2500 IF RTTR (U+2,B3=12 THEN LET 

790 LET U=2 : GOTO 2050 


U=U-1 

800 IF RTTR (X+2,Y)=11 THEN LET 


2505 PRINT INK 3;RT U-1,B.;"*": L 

X=X-1 
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ET P =4: PRINT INK 2;PT U.B; "®";P 
T U + 1,B;"*P" 

2510 LET K=X-U: IF SGN K=-l THEN 
GOTO 2521 

2520 IF K>0 THEN IF K<=4 THEN IF 
INT INT B = INT Y THEN GOTO 7000 

2521 IF PBS K>0 THEN IF PB5 K<=4 
THEN IF INT B=INT Y THEN GOTO 7 

200 

2530 IF PBS (X-U)<=1 THEN IF PBS 
(Y-B) <=1 THEN GOTO 5000 
2832 IF Ü=1 THEN PRINT PT X,Y;" 

2852 IF U =2 THEN PRINT PT X , Y.; " 

”;PT X+l.Y;" ” 

2855 IF P=i OR P=2 THEN PRINT PT 
U,B;" GOTO 3000 

2860 IF P = 3 OR P =4 THEN PRINT PT 

PT U + i ,B; " " 

3000 LET X=X- (INKEY$="0" PND X>1 
) +(INKEY$ = “9" PND X <19) 

3010 LET Y=Y-(INKEY $ = " 1" PND Y>1 
) +(INKEY $ = "2" PND Y <30) 

3055 PRINT INK 9; INUERSE 1;PT 0 

, 0; "pontos ";num 

3057 IF NUM = 15 THEN PRINT PT 10.. 

14;"GPNHOU": GOTO 8000 

3060 IF INKEY$ = "1" THEN GOTO 200 

3070 IF INKEY4="2" THEN GOTO 400 
3080 IF INKEY$ = ,, 0" THEN GOTO 600 
3090 IF INKEY$= "9" THEN GOTO 800 
3100 GOTO 200 

6000 FOR N = 1 TO 7: PRINT INK N;P 

t x.. y; " YY" pt x-i, y ; "YY"pt x +1.. 

Y : SOUND . 1+ . 81*N -1 *Nt2 : NEXT N 
: GOTO 8000 

7080 FOR N =2 TO K: FOR J=0 TO 1: 

PRINT OU ER J;PT U+N,B;"I": SOUN 
D . 165 : NEXT J : NEXT N : GOTO 74 
00 

7200 FOR N =2 TO PBS K: FOR J=0 T 
O 1: PRINT OU ER U;PT U-N.B;"I": 
SOUND .1.65: NEXT J: NEXT N 
7400 FOR N = 1 TO 7: PRINT INK N;R 
T X , Y ; " i PT X + 1 . Y ; PT X - 1 , Y ; “ YY 
SOUND .1,-61+N: NEXT N 
8000 PRINT FLPSH 1;"QUER CONTINU 
PR ? (S/N)" 

3010 IF INKEY$="S" THEN RESTORE 
: GOTO 170 

8020 IF INKEY$="N" THEN STOP 

3030 IF INKEY % <>"5" OR INKEY $ < >" 

N" THEN GOTO 8018 

9000 FOR i=144 TO 155 

9018 FOR .i =0 TO 7 

9020 REPD Ü. 

9030 POKE (USR CHR$ i)+j, K 
9040 NEXT .i 
9050 NEXT i 

9060 FOR 0=0 TO 25: LET T = INT (R 
ND *29): LET U=INT (RND*19): PRIN 
T INK 1;PT U+l.T+l; "1": NEXT 0 
9078 FOR 0=0 TO 1: LET T = INT (RN 
D*7)+2: LET U=INT ÍRND*15)+10: P 


RINT INK 4; PT T.Ui^^iflT T + 2 

, Ui : NEXT 0 

9080 FOR 0=0 TO 20: PLOT 38,40: 
DRPU INK 4; 10.0: DRPU INK 3.; 10,- 
0: PLOT 39,32: DRPU INK 4;-10,0: 

DRPU INK 3;-10,-0: NEXT 0 
9090 LET NUM =8: LET NI=NI*.l+.4: 

LET X = 19: LET Y=23: LET U = INT ( 
RND*13)+1: LET B=2 
9108 DPTP 0,0,2,31.15,63.32,63 
9118 DPTP 8,8,0,255,224,252,74,2 
52 


9128 DPTP 
9138 DPTP 
252 

9148 DPTP 
9158 DPTP 
9160 DPTP 
154,186 
9178 DPTP 
, 16 ,lb 
9138 DPTP 


0,0,8,255,7,63,82,53 
0,8,54,248,248,252,74, 

3,3,8,62,73,107,73,93 
93,85,93,93,73.65,62,0 
8,124,130,145,186,183, 

186,145,214,146,124,16 

126,255,255,126,255,25 


5,126.255 

9190 DPTP 8,28,3,62,8,127,8,8 
9280 DPTP 0,80,68,126,126,68,88, 
8 

9218 DPTP 4,.64.1,4,1,4.32,1 
9308 RETURN 
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Que horas são? 


Este programa é dedicado aos pequenos usuários do TK 90X. 
Com ele os nossos leitores, na faixa etária dos 4 aos 8 anos, 
podem aprender as horas e assim esnobar os adultos dizendo 
a eles "que horas são". 


"Que Horas São?" é um programa educativo que ensina, prin¬ 
cipalmente, às crianças a visualizar nos relógios, de ponteiros, 
as horas.A ressalva com a palavra "ponteiro", colocada antes, 
se deve à grande quantidade dos relógios digitais surgidos no 
mercado. 

Pensem bem: como aprender as horas se os relógios não mos¬ 
tram os ponteiros? 

Para nós, adultos, este detalhe é insignificante. Mas, imaginem 
um "pequeno" querendo aprender a ver as horas! 

Para resolver este "pequeno" probleminha, elaboramos este 
programa que exibe, na tela do vídeo, um relógio com dois pon¬ 
teiros. Através dele, o pequeno-usuário pode ver as horas e os 
minutos e, através do método de tentativa e erro, aprender,final¬ 
mente, como ver as horas e informar aos pais que horas são. 

Funcionamento do programa 

Ao digitar o programa, é necessário uma maior atenção de sua 
parte com as linhas 8500 até 8655, onde qualquer erro irá com¬ 
prometer o desenho do relógio na tela, interrompendo o funcio¬ 
namento do programa. 

Terminada a digitação execute o programa. A primeira coisa 
a aparecer na tela é um pequeno texto que explica, em poucas 
linhas, o funcionamento do programa, conforme ilustra a figura 
1. Na parte inferior da tela você visualizará uma mensagem que 
lhe pedirá para pressionar qualquer tecla e assim dar continui¬ 
dade ao programa. 



u o c a d e v a dizer q u a n t o s í» i n u t o s 
. j a s £ p a s s a r a r» d a h o f a r» a r c a d a . 


Em sagui da antre com a hora indi 
c a d a n o r a l o g i o , 


F i c a r a a x i bi d o n a t a t a d o i s p l a 
caras que marcaram seus pontos. 


P r e s s i on a qua L qu a r t a c l a 
p a r a c o n t i n u a r 

Figura 1 


Em seguida, o relógio é desenhado na tela, como demonstra 
a figura 2. Junto com o relógio existem dois placares, onde um 
registra os erros e o outro quantas vezes você acertou. Eles es¬ 
tão localizados à esquerda e à direita, da parte superior, do seu 
vídeo. Abaixo do relógio está escrito o nome do programa. O pro¬ 
grama escolhe aleatoriamente um horário, que você deverá des¬ 
cobrir, posteriormente, respondendo duas perguntas. Na primeira, 
o usuário terá que dizer quantos minutos se passaram da hora 
indicada no relógio. Na segunda pergunta, você terá que respon¬ 
der,ao contrário, informando que horas são, de acordo com os 
minutos mostrados no relógio. 

Caso o usuário acerte as duas perguntas, a mensagem "cor¬ 
reto" será exibida na tela, juntamente com um sinal sonoro e aí 
então, acrescenta-se um ponto no placar das respostas "certas". 
Agora, se você errou uma das duas perguntas, a mensagem "er¬ 
rado" será exibida no vídeo, seguida de um sinal sonoro mais in¬ 
tenso. E a palavra "errado" ficará piscando em sua tela, até o 
momento em que você acertar a hora indicada no relógio. 



0020 CL5 

303Q PRINT HT 0,9; INUERSE I; M QU 
a horas sao" 

3045 PRINT HT 5,0;“üoce dava diz 
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= -3: LET U =-31: LET q=8: LET P=- 



31: RETURN 


RETURN 

8556 LET X =133: LET y=I28: LET 3 


8645 LET C=80: LET d=120: LET f= 

= -lS: LET U =-28: LET q = -3: LET p 


44: LET t =-28: LET V=52: LET b = - 

=-28: RETURN 


2S: RETURN 

8600 LET C =160: LET d=152: LET f 


8650 LET C=96: LET d=144: LET r= 

= -36: LET t =-52: LET V =-28: LEi 


28: LET t =-52: LET V=36: LET b = - 

b = -6 Q: RETURN 


45: RETURN 

8605 LET C =184: LET d=120: LfcT f 


3655 LET C=128: LET d=160: LET r 

= -60: LET t =-20: LET V =-52: LET 


= -4: LET t = — 60: LET V=4: LtT b = - 

b=-2S: RETURN 


68: RETURN 

8610 LET C =192: LET d=96: LET f = 


9000 PL0T C,d: DRPU 0UER 1; r , t : 

-56: LET t=4: LET V=-56: LET b=- 


PL0T C d: DRPU OUER 1.1 V , b : RETUR 

4: RETURN 


N 

8615 LET C =184: LET d=64: LET [ = 


9010 PLOT c : d: DRPU OUER l;r,t: 

-60: LET t =28 : LET V=-52: LET u = 


PLOT OUER 1; C . d : DRPU OUER 1 V , b 

36: RETURN 


: RETURN 

8628 LET C =160: LET d=40 : Lei f = 


9030 PLOT X.M : DRPU OUER 1; a,U : 

-36: LET t=52: LET V=-28: LET b= 


PLOT x.y: DRPU OUER l;q.,P: RETUR 

60: RETURN 


N 

8625 LET C =128 : LET d=32: LEi_f = 


9835 PLOT X , U : DRPU OUER 1 ; 3 U : 

4: LET t=60 : LET V =- 4 : LET b=b0: 


PLOT OUER 1 ;X,U: DRPU OUER 1;qP 

RETURN 


: RETURN 

8630 LET C =96 : LET d =40 : LET r =•-■ 


9050 PRINT PT 21,13; FLPSH 1;"C0 

6: LET t=52 : LET V =28 : LtT b=b0: 


ereto": LET =• coré =score +1 : PRINT 

RETURN 


PT 3 . 26 : £ C 0 r £ : SOUND . 1.. . 3 : PRU 

8635 LET C=72: LET d =64: LET ffb 


SE 50: RETURN 

0: LET t =28: LET V=52: LtT b=Ub: 


9100 PRINT PT 21,13; FLPSH 1; "te 

RETURN 


r 3 d 0 “ : LET £ c =£ C + 1: PRINT PT 3,3 

8640 LET C =64 : LET d=96 : LET f=5 


; £ C : SOUND .3,.3: PRUSE 50: RETU 

6 : LET t =- 4 : LET V =56 : LET b=4: 


RN 

■ 


O Caca Bombas 

M 


Fábio Polonio 


Corra atrás da bomba e desarme-a, antes que ela estoure. Mas, 
tome cuidado - ao longo do tabuleiro existem blocos que pode¬ 
rão levá-lo desta para melhor. No entanto, nem tudo é sacrifício, 
alguns blocos possuem bandeiras de bônus. 

Você não poderá passar mais de uma vez pelo mesmo bloco. 
Então descreva um caminho lógico para não perder a mobilidade. 

Após 5 bombas desarmadas, uma nova tela é gerada e, para 
vencê-la você terá que ter reflexos. Pressionando uma tecla, fa¬ 
ça com que o desarmador caia em cima da bandeira (bônus). 
Quanto mais rápido você for mais bônus terá. 

Esse jogo é um estouro e deverá entretê-lo, junto ao seu TK 90X 
(de 16/48K de RAM) por um bom tempo. 

Programando 

0 programa é misto, isto é, foi escrito parte em Basic e parte 
em Linguagem de Máquina. 

As rotinas em Linguagem de Máquina residem em linhas DA¬ 
TA e servem para a criação de caracteres gráficos especiais (UDG) 
e para SCROLL de telas. 

Poderíamos chamar o estilo do programa de lógica estrutura¬ 
da, pois nele é utilizado um número mínimo de variáveis, otimi¬ 
zando e encadeando ao máximo as rotinas.(Ver box: Lógica Es¬ 
truturada e Lógica Modular). 

As variáveis são: 


x$ey$ = Dados da Marcha Fúnebre. 

Lv = Vidas. 

L = Nível, 
hs = Recorde, 
sc = Placar atual, 
x = Posição do desarmador. 
y = Posição do desarmador. 
b$ = Teclas de movimento. 
a$ = Última tecla pressionada. 

d = Representação numérica da última tecla pressionada. 

Layout do Programa 


Linhas Algaritmo 


1 

117 

300 

4000 

5000 

6000 

7000 

8000 

8230 

9000 


116 Formatação de tela. 

300 Programa principal. 

1000 Animação da tela. 

4110 Sub-rotina do segundo estágio. 

5020 Contador de tempo. 

6040 Desarmador da Bomba. 

7070 Locais das caveiras. 

8220 Instruções. 

8270 Níveis. 

9300 Inicialização dos caracteres gráficos e rotinas em 
Linguagem de Máquina. 
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Digitação 


Alguns detalhes devem ser observados na hora da digitação. 
Segue a especificação de cada linha, onde podem aparecer 
dúvidas. 


Linha 70 
Linha 75 
Linha 100 
Linha 115 
Linha 120 
Linha 4000 
Linha 4005 
Linha 4050 
Linha 6000 
Linha 7010 


Graphics MO e NP. 

Graphics EG e FH. 

Graphics IK e JL. 

32 x Graphics Shift (8^. 

Graphics AB e CD. 

16 x Graphics EG + 16 x Graphics FH. 
Graphics MO e NP. 

Graphics AB e CD. 

Graphics EG e FH. 

Graphics QS e RT. 


Lógica Estruturada e Lógica Modular 


A estrutura em árvore seria, em programação, um conjunto de 
decisões encadeadas gerando múltiplos processamentos. Em Ba¬ 
sic, quando tivermos o conjunto de IF, ELSE e as funções boo- 
leanas, haverá uma estrutura em árvore. Vejamos - (figura A) 



NEXT Figura B 
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Hj 
1 1 


Ht+f 

— 


98 Lei a=2±lNl (RND*18) Lei b 
=2*INT (RND *15) 

100 IF a =4 PND b=x THEN GOTO_90 
110 PRINT PT a,b; BRIGHT 1; rLP 
SH 1; INK 2; PAPER n;"IK";Pi 3+1 
. b;"JL" _ 



i 5 

115 PPUSE 100 

117 FOR .i=i-l TO n STEP -1 
120 PRINT PT y,x; INK 1; PPPtR 
5;"PB";PT 4 + 1 ,x:"CD" 

130 PRINT PT 21,n "PLPCPR = ";SC; 
" " ; PT 21:13; "RECORDE = " ; hs PT 21, 
25; "UIDPS = "; iv 
135 PRINT PT 20 , .! ; " " 

140 LET 3 4 = INKEY4 
150 FOR C =1 TO 12 

155 IF 3 4 = b $ i C) THEN LET d = C-í6 
PND c>63 GO!O 170 
160 NEXT í 

165 NEXT .i : GOTO 5000 
170 IF d/2 THEN PRINT PT y X; 1 

NK 6 ; " “ ; RI 4 +1, x ; " 

175 LET x=X+2+(d =43 -2+ (d =33 : LE 
T <4 =4 + 2 + (d =6 3 -2 + íd =5 3 
130 IF d •; =2 THEN FOR U =n TO 1: 
FOR V=n TO 1: PRINT PT 4+ V,n;: L 
ET q =USP 32034: LET q=USR (32000 
+ (42 PND d=13 3: NEXT V: NEXT U: 
LET X =X + (2 PND d =2 3 -(2 PND d=13: 

GO SUB 1000: LET . i =. i -1: IF .i =0 T 
HEN GOTO 135 

135 IF d<=2 THEN GOSUB 5000 
190 GOSUB 1000 
200 LbT 3 =PTTh ( 4 .x 3 
205 IF a =54 THEN'LET X =X +2*(d=3 
3 -2 + (d =4 3 : L t ! 4 =4 +2 * (d =b 3 -2 + (d = 

6 3 

207 GOSUB 1000 

210 IF 3=42 THEN SOUND .005,30: 
SOU ND .005:25: LET S C =£C +140 
220 IF a>63 THEN GOTO 5000 
230 IF a =43 THEN GOTO 7000 
240 LET £ C = £ C +10 

250 SOUND .01. (12 PND d =5 3 +(d <> 
53+(5 PND d=33+(17 PND d=43 
300 NEXT ,i : GOTO 5000 
1000 LET X =X +(32 PND X=-23-(32 P 
ND X =323 : LET 4=4+(20 PND y =-2 3 - 
(20 PND 4=203 : RETURN 
4000 CLS : PRINT PT 20,03 INK 03 
PPPER 5;"EGEGEGEGEGEGEGEGEGEGEG 
EGEGEGEGEGFHFHFHFHFHFHFHFHFHFHFH 
FHFHFHFHFH" 

4005 LET b =2 + INT (RND+ 153 : PRINT 
INK 2; PPPER 5;PT 20 . b; "MO" ;PT 
21,b3"NP" 

40 10 PRINT PT 10,1;"Pres£ion e uia 
a te c l a qu a n d o o h o m e nt es t i v e r s 
obre a bandeira" 

4020 FOR 3=1 TO 250: NEXT 3 
4030 PRINT PT 10,n 

4040 FOR 4 =n TO Í3 STEP 2: FOR X 
=n TO 30 STEP 2 

4050 PRINT PT 4 . x;"PB";PT y +1,X; 
"CD" 

4060 FOR a=n TO 1: IF INKEY$<>"" 
THEN GOTO 4100 
4070 NEXT 3 

4030 PRINT PT 4.x;" "3 PT 4+l.X, 

" ": NEXT X: NEXT 4 


4033 PRINT PT 10,n; FLPSH 1;" DP 
N C O U ! D P N O O U ! D P N C O U : D P N C O U ! " 
4035 FOR a=255 TO n STEP -5: SOU 
ND .01,3/10: OUT 254,3: NEXT 3 
4090 RETURN 

4100 PRINT PT 4,XI “;PT 4+l.X3 
": FOR 3=4+1 TO 20: PRINT PT 
a,x 3 "Pb"; Pi 3 +1. x ;" ": SOUND .O 

1,3: NEXT a 

4110 IF x =b THEN LET £ C =£ C +4000- 
(50+43: PRINT PT IO, n; FLPSH 1;" 
BONUS!i BONUSi! BONUS!! BÔNUS!! 
": FOR b=l TO 5: FOR 3=30 TO 15 
STEP -1: SOUND ,005,3: NEXT 3: 
NEXT b: FOR 3=1 TO 50: NEXT 3: R 
ETURN 

4120 GOTO 4033 

5000 PRINT PT 20,n;" ": FOR 3 =n 

TO 255 STEP 5: SOUND .01,3/10: O 
UT 254,3: NEXT 3 
5020 GOTO 7020 

6000 PRINT INK n;PT 4 ,X; "PB"3 PT 
y +1,X; "BC" 

5005 FOR b = 1 TO 5: FOR 3=30 TO 1 
5 STEP -1: SOUND .005,3: NEXT 3: 
NEXT b 

5010 LET £ C =£C +1000 

5025 LET X = X +2-(4 PND X= 303 

5027 PPUSE 50 

6030 NEXT t: LET i=i-(i>143: LET 
1 = 1 + 1 

6035 GOSUB 4000 
6040 GOTO 5 

7000 FOR 3=1 TO 50: LET b=(3/2=1 
NT C 3 / 2 3 3 : P RI NT IN U E R 5 E bO U E R 

1;PT y , x;" ” ; hT 4 + 1, x;" “: NE 

XT a 

7010 PRINT PT 4,X; INK 7; PPPER 
0; "OS" PT y + 1, x ; "RT" 

7015 FOR 3=1 TO 11: SOUND UPL (y 
$(3 3 3 /4,UPL (X 4 (5 3 3 -1: NEXT 3 
7020 LET L v = lV -1: IF IV THEN GOT 
O 5 

7030 IF £ C >h£ THEN PRINT PT 21,1 
7; h£ " ": LET h£=SC: PRINT PT 19 

, n; FLPSH 1; inuerse 1.;" 

NOUO RECORDE ! 

7040 PRINT PT 20, n; FLPSH l.;"Out 
r3 vez 

7050 IF INKEY$=“n" THEN 5T0P 
7060 IF INKEY$="" THEN GOTO 7050 
7070 GOSUB 3230: GOTO 3 
3000 BORDER n: PPPER n: BRIGHT n 
: INUERSE n: OUER n: FLPSH n: IN 
K 7: CLS 

3010 PRINT TPB 10; INK 2; PPPER 
5; FLPSH 1; "1 ■ * « 1 " 

3020 PRINT TPB 10; INK 2; PPPER 
5.; FLPSH 1;” "; INK n ; PPPER 5; 
FLPSH n;"BLOCKMPN"; PPPER 2; INK 
2; FLPSH 1;" " 

3030 PRINT TPB 10; INK 2; PPPER 
5; FLPSH 1;"1 ||1 | " 

3040 PRINT "o o b,ie t i vo de£ t e Jog 
o e •’ d e £ a r tu a r ' a b o r« b a a n t e s q u e 
t e r m i n e o t e m p o e a b o rr< b a e s t o u r 
e.Se i£ £ o a c o ntecer v o c e p e r de u 
fíi a d e £ u a £ t r e £ v idas-.” 

3O5O PRINT "Pp O£ 5 te l 3£ " 

3060 PRINT "Uoce deve pressionar 
u m a t e c l a q u a n d o o h o rn e m e s t i v e 
r na ba ndeir a pa r a BONUS-qu an t o 
rn a is r a p i d o v o c e f o r , m a i £ b o n u s 
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PfiOG 


I 


fl 



flí 


-W+ 


TT 


4+4 


INI 


TtT 


j-ttt 


:±tit 


mt 


i 


m 


9 3nh ara ! 

3070 P RINT "0 £ S t a 9 i 0 1 C 0 01 £ C 3 f 3 
d £ n o v o , p o r £ m c o m t £ m p o m £ n o r ‘' 
3030 PRINT "soa so r t£ ! " 

3200 PRINT ttl; FLRSH 1;" Pr£S 

s i on£ qua Lque r te c la 

8210 IF INKEYSo"" THEN GOTO 321 

0 

8220 IF INKEYS="" THEN GOTO 3220 
8230 CL3 

324-0 PRINT RT 5,5; FLASH 1;"NIUE 
L? Í0 3 9) FLRSH n; "0 =FRCIL 

DIFÍCIL(9)" 

8245 PRINT RT 15,n;" - 

-CONTROLES: 

' " z =e s qu £ r d a x =d i rei ta . p = 

sobe l = d £ S C £ " 

8250 LET S 4 = INKEY$: IF a$<"0" CR 
aí>“9" THEN GOTO 3250 
8260 LET i =32-2*(URL 3 $) 

8270 RETURN 

9000 RESTORE 9050: FOR 3 =U5R "3" 
TO USR " t " +7 : RERD b : POKE 3 b : 
NEXT a 

9010 RESTORE 9100: FOR 3=32000 T 
O 32138: RERD b: POKE 3,b: NEXT 

a 

9030 RETURN 

9050 DfiTR 15,79,33,9,11,30,50,63 
, 240,242 , -4,144,176,120,60 , -4 63 
. 63 , b■47,6,b,30,62,-4,b,b■244,96 
,96,120,124 

9051 DRTR 7,31, b , 57 , b ., 63,29,7,10 


3,242 ., -4,31 , ,',-1,-4,96,224,243 , b 
,156,b,-4,134,224,230,175,63,248 
,224,127,63,6 

9052 DRTR 0,1,3,15,63,119,99,247 
,244,245,b,117,127,63,15,3,192,1 
28,192,240,-4,233,193,239,47,175 
,175,174,-1,-4,240,192 

9053 DRTR n ,3,14,62,126,62,14,3, 
n,b,b,b,b,b,b,b,124,-4,60,-4,60, 
-4,b,b,124,12,b,b,b,b,b , b 

9054 DRTR 1,3,15,31,63,b,127,99, 
109,99,103,107,109,Í27,b.b,128,1 
92,248,248,-4,-4,-2,70,86,70,94, 
b , b,-2,b , b 

9100 DRTR 17,31,64,213,225,43,1, 

31,0,26,237,184,35,119,53,2,125, 
254,71,40,6,60,50,2,125,24,229,1 
7,31,88,213,225,43,1,31,0,26,237 
,134,35,119,201 

9200 DRTR 17,0,64,213,225,35,26, 
1,31,0,237,176,43,119,58,44,125, 
254,71,40,6,60,50,44,125,24,229, 
17,0,38,213,225,35,26,1,31,0,237 
,176,43,119,201 

9300 DRTR 42,132,92,34,43,125,12 
4,193,7,50,13,125,1,31,0,9,34,1, 
125,124,198,7,50,60,125,53,137,9 
2,71,62,24,144,38,0,111,6,5,41,1 
6,-3,17,31,33,25,34,23,125,17,22 
5,-1,25,34,70,125,201 

9998 PAPER 7: INK 0: BORDER 7: S 
TOP 

9999 SRUE "BLOCKMRN": GOTO 9999 ■ 


SEU MICRO EXPLORADO AO MÁXIMO! 


0 SOFTWARE CIBERTRON, já tradicional no TK 85 e consagrado pelos peritos como a 
melhor opção para o TK 2000, está agora disponível também para o moderníssimo 
TK 90X com as mesmas características de qualidade: Sistema Mult igra vação, poderc) 
sas rotinas em linguagem de máquina e instruções detalhadas. Qualquer que seja 
o seu TK, explore-o ao máximo com CIBERTRON SOFTWARE. 


T K 2 0 0 0 


Falcons 

Xadrez 

Bolo 

Eliminator 
Space Eggs 
Grand Prix 


Simulador de Vôo 
Ceiling Zero 
Gamma Goblins 
Os Utilitários: 
Graphs 2000 
ROM 2000 


Inquestionavelmente o melhor 
software produzido p/ TK 2000. 


T K 9 0 X 

Simulador de Vôo (Manual em Português) 
Túmulo do Drácula (Tridimensional) 
Pac-man e Campo Minado 
Alta resolução gráfica, som e cores. 

T K 8 5 

Pinball Corrida Milionária 

Tourada TK Word (Aplicativo) 

Outros 12 programas em nossa lista. 


Se você preferir,envie cheque nominal cruzado à Cibertron Eletrônica Ltda - Caixa 
Postal 17.005 - CEP 02399 SP, para receber os programas em sua casa. Remessas em 
3 dias úteis. Jogos aCr$32.900 cada - Utilitários e Simulador de Vôo para TK 2000 
e TK 90X Cr$37.900 cada - TK Word e Simulador de Vôo para TK 85 Cr$32.900 cada. Ga¬ 
rantia integral. Encontre toda linha Cibertron na Hagnodata Tel. (011) 255 7653. 


Revendedores autorizados: 
















































































































PROGR AM A S I I I I M 

Labirinto 3D 



De todos os aventureiros que se atreveram a entrar neste 
labirinto nunca mais tivemos notícias deles. Se você gosta de 
se arriscar, então descubra o misterioso segredo que há entre 

as suas paredes... 


Em princípio, tudo parece ser uma simples brincadeira de en¬ 
contrar a saída. Mas, com o passar do tempo o desespero so¬ 
mado ao cansaço estarão dominando você, então a sensação 
de estar perdido no meio daquelas imensas paredes começa a 
se tornar realidade. 

Não se desespere, com calma e paciência você conseguirá sair 
desse sufoco e, além do mais, isto é apenas um jogo. 

Reúna os amigos para participarem dessa aventura, e veja qual 
deles conseguirá ir até o final. 

Funcionamento do programa Labirinto 

A tela do jogo é constituída de um labirinto tridimensional, onde 
você deve circular pelos corredores em busca da saída. Cada cor¬ 
redor é composto de ligações que levam a outros corredores pa¬ 
ra facilitar sua locomoção dentro do labirinto. O jogador dispõe 
de quatro teclas para sua movimentação, conforme demonstra 
a tabela 1. 


Te c L 

ãs de f-1 o v i ífi e n t 5 c 30 : 


* 

P =m 0 v e p 3 r 3 d i r e i t a 


* 

0 = rn 0 v e p 3 r a e s q u e r d 3 


* 

R=gira em torno de si 

m e s m 0 

Hf- 

BREPiKsfíiove um passo a 

f r e n t e 


Para executar o programa digite (RUN 9900), onde será exibi¬ 
do o nome do jogo e em seguida um trecho da apresentação. 

A saída estará identificada pela própria palavra. Conseguindo 
achá-la você será parabenizado pelo equipamento e também apa¬ 
recerá no vídeo o tempo gasto pelo jogador. 

As passagens existentes no labirinto possuem certa semelhan¬ 
ça, confundindo assim, o usuário que pensa estar passando pe¬ 
lo mesmo ponto. Desta forma, sua atenção deve ser dobrada, 
para melhor observar esses detalhes que poderão passar 
desapercebidos. 

Mostre ao pessoal que você pode encontrar a saída do labi¬ 
rinto em menos tempo e depois chame alguém para desafiá-lo. 
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100 DIM Ví 10,10): DIM h (10,10) 
110 G03UB 9000 

120 LET X =1: LET M =1: LET dX =1: 
LET dy =0 

125 LET t1=PEEK 23672+256*PEEK 
23673 + 4-096 «PEE K 23674- 
130 LET L =9: LET Lx =X+ ídX =-1) : 

llt lm= y4(dy=-i) 

132 LET L =L-1: LET Lx =LX4dX: LE 
T Lm =Lm 4d y 

134 IF d X < > 0 PND VÍLX,Ly)=0 ! HE 
N GOTO 132 

136 Ir dM < >0 PND h (LX ,Ly 3 =0 THE 
N GOTO 132 

140 CLS GÜSUií 600O4L 
145 LET LX =LX- (dX =-l) : LET Ly =L 
M - í d M = -13 
ISO FOR i=L TO 3 

155 LET Lx =LX -dX : LET LM =Ly-dM: 
GOSUB 1000: NEXT 1 

156 IF dX =- 1 PND M =9 PND X<5 TH 
EN PRINT PT 10,14; r, SPIDP" 

158 LET 3 $• =INKEY 4 : IF 3$ = "" THE 
N GOTO 158 

160 IF 3 $ í >" ” THEN GOTO 190 
170 IF CdX =1 PND V ÍX4l ,M 3 =0) GR 
Í d X = -1 P N D V (x , y 3 =0 3 O R (d y = 1 P 
ND h íX ,M 413 =03 OR (d M = -1 PND h ÍX 
, y 3 =0 3 THEN LET X=X4dX: LET y=M4 
dy 

190 IF X=1 PND *4=9 THEN GOTO 92 
90 

200 IF 3 $ = ”f“ THEN LET dX=-dX: 
LET d y =- d M: GOTO 130 
210 IF ã $ = "0" THEN GOTO 300 
215 IF 3 $ í >"P" THEN GOTO 130 
220 IF PB5 d X = 1 THEN LET dM=-dX 
: LET dX=0: GOTO 130 
230 LET d X = d M: LET dM =0 : GOTO 1 
30 

300 IF PB3 d X =1 THEN LET dy=dX: 
LET d X = 0: GOTO 130 
310 LET d X = - d M : LET d *4=0: GOTO 
130 

1000 IF dX <> 1 THEN GOTO 1100 
1010 IF h (Lx , Lm 413=0 THEN GOSUB 
750041: GOTO 1050 
1020 GOSUB 7000 4i 

1050 IF h (LX ,LM 3 =0 THEN GOTO 850 
041 

1060 GOTO 800041 

1100 IF dXO-1 THEN GOTO 1200 

1110 IF h ( Lx ,Lm 3 =0 THEN GOSUB 75 


0041: GOTO 1150 
1120 GOSUB 70004i 

1150 IF h(Lx,Ly413=0 THEN GOTO 8 
50041 

1160 GOTO 800041 

1200 li- dy 0-1 THEN GOTO 1300 

1210 IF V (LX 41,LM 3 =0 THEN GOSUB 

750041: GOTO 1250 

1220 GOSUB 700041 

1250 IF V (Lx,Ly 3 =0 THEN GOTO 850 

0 4 1 


1250 GOTO 800041 

1300 IF V (Lx,Ly 3 =0 THEN GOSUB 75 
0041: GOTO 1350 
1310 GOS UB 700041 

1350 IF V (LX 4i,Ly 3 =0 THEN GOTO 8 
500 41 

1360 GOTO 880041 

6000 RLOT 118,76: DRPU 0,-24: DR 
HU -36,0: RETURN 

5001 PLOT 108,75: DRPU 8,26: DRfi 
: OHPU 8,-26: DRPU -48,8: 

6802 PLOT 106,74: DRPU 0,26: DRR 
U 44,0: DRPU 0,-28: DRPU -44,0: 
RETURN 

6003 PLOi 102,71: DRPU 0,34: DRR 
U 52,0: DRPU 8,-34: DRPU -52,0: 
RETURN 

6804 PLOT 94,65: DRPU 0,46: DRPU 
63,0: DhPU 0,-46: DRPU -68,0: R 
ETURN 

6005 PLOT 32,57: DRPU 8,62: DRPU 
92,.0: DRPU 8,-62: DRPU -92,8: R 
ETURN 

6806 PLOT 64,45: DRPU 0,86: DRPU 
128,8: DRPU 8,-36: DRPU -128,8: 
RETURN 

6087 PLOT 48,29: DRPU 8,118: DRP 
U 176,8: DRPU 8,-113: DRPU -176, 
0: RETURN 

6008 PLOT S,7: DRPU 8,162: DRPU 
248,8: DRPU 8 , -162: DRPU -248,8: 


RETURN 

7008 PLOT 188,^5 
0,24: DRPU -2,1 
7881 PLOT 186,74 
8,26: DRPU -2,1 
7802 PLOT 182,71 
0,28: DRPU -4,3 
7883 PLOT 94,65- 
0,34: DRPU -3,6: 


DRPU 2,1 
RETURN 
DRPU 2,1 
RETURN 
DRPU 4,3 
RETURN 
DRPU 3,6: 
RETURN 


7884 PLOT 82,57 
0,46: DRPU -12 


: DRPU 12,8 
,3: RETURN 


DRPU 

DRPU 

DRPU 

DRPU 

DRPU 
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w; 


"7005 PLUT 64- : 4 b : 
U 0,52: DRRU '-13 
7005 PLÜ7 40,29: 
U 0,55: DRhU -24 


DRRU 18 : 12: DRh 
12: RETURN 
DRHU 24 : 16: DRR 
15: RETURN 


7007 PLOT 3,7: DRRU 32,22: DRRU 
■0,118 _ D R Ri U -32,22: R ET ü R N 

7008 PLOT 0,1: DRRU 8,6 : DRRU 0 
162: DkRU -3,6 : RETURN 


7500 PLüI 108 
0,24: DRRU -2,0 

7501 PLOT 106,75 
0,26: DRRU -2,0 

7502 PLOT 102,74 
0,28: DRRU -4,0 

7503 PLOT 34,71 

0,34: DRRU -8,0 

7504 PLOT 32,65 
0,46: DRRU -12 

7505 PLOT 64,57 
0,62: DRRU -18 

7506 PLOT 40,45 
0,86: DRRU -24 

7507 PLOT 8,29: 

0,118: DRRU -32 

7508 PLOT 0,7: 

182: DRRU -8,8: 


DRRU 2,8: DRRU 
RETURN 

DRRU 2,0: DRRU 
RETURN 

DRRU 4,0: DRRU 
RETURN 
DRRU 8,0: DRRU 
RETURN 

DRRU 12,0: DRRU 
0: RETURN 
DRRU 18,0: DRRU 
0: RETURN 
DRRU 24,0: DRRU 
,0: RETURN 
DRRU 32,0: DRRU 
, 0: RETURN 
DRRU 3,0: DRRU 0, 
RETURN 


8080 PLOT 143, 

7R 

DRHUÍ -2,1: 

DRR 

U 0,24: 

DRhU! 2 

: 1 

RETURN 


3001 PLOT ISO, 

74 

DRRU! -2,1: 

DRR 

U 0,26: 

DRRU 2 

: 1 

RETURN 


8002 PLOT 154, 

71 

DRRUi -4,3: 

DRR 

Ui 0,23: 

DRhuí 4 

: 3 

RETURN 


3003 PLOT 162, 

65 

DRRU! -8,6: 

DRR 

y 0,34: 

DRhU 3 

, 6 

RETURN 


8004 PLOT 174, 

57 

DRRU! -12,6 

: DR 


RU 0,46: DRRU 12 

8005 PLOT 192,45 
RRU 0,62: DRRU 18 

8006 PLOT 216,29: 
RRU 0,36: DRRU 24 

8007 PLOT 243, 

RU 0,113: DRRU 

8008 PLOT 255,1: 
0,162: DRRU 3,6 

8500 PLOT 143,76 
U 0,24: DRRU 2,0 
3501 PLOT 158,75 
U 0,26: DRRU 2,0 


: RETURN 
DRRU -18,12 
12: RETURN 
DRRU -24,16 
16: RETURN 
: DRRU -32,22: 
32 • 22: RETURN 


D 

DR 


8502 PLOT 154,74 
U 0,28: DRRU 4,0 

8503 PLOT 162,71 
U 0,34: DRRU 8.0 

8504 PLOT 174,65 
RU 0,46: DRRU 12 

8505 PLOT 192,57 
RU 0.. 62: DRRU 13 

8506 PLOT 216,45 
RU 0,36: DRRU 24 

3507 PLOT 248,29 
RU 0,113: DRRU 3i 

3508 PLOT 255,7: 


8,162 


DRRU 


,0 


DRRU -3,6: DRRU 
RETURN 

DRRU -2,0: DRR 
RETURN 

DRRU -2,0: DRR 
RETURN 

DRRU -4,0: DRR 
RETURN 

DRRU -8,0: DRR 
RETURN 

DRRU -12,0: DR 
0: RETURN 
DRRU -18,0: DR 
0: RETURN 
DRRU -24,0: DR 
0.: RETURN 
DRRU -32,0: DR 
: , 0: RETURN 
DRRU -7,0: DRRU 
RETURN 


9000 FOR i=1 TO 3: LET h(i,1)=1: 

LET híi, 105=1: FOR ,i=2 TO 9: RE 
RD a: LET h«1,15=8: NEXT j: NEXT 
i 

9010 FOR i=1 TO 3: LET Víi,i5=l: 

LET '.,'(10,15=1: FOR 1=2 TO 3: RE 
RD a: LET V í j , i5 =a: NEXT j: NEXT 
i 

9020 RETURN 

9100 DfiTfi 1,1,1,0,0,0, 

9101 DfiTfi 0,0,1,0,0,1, 

9102 DfiTfi 1,1,0,0.0,0*, 

9103 DATA 0 , 0 ;, i; i; 0 ; 0 ; 

9104 DfiTfi 1,1,1,0,0,1, 

9105 DfiTfi 1 , 0 , 0 , 0 , 0 , 0 , 

9106 DfiTfi 1,1,1,0; 1; 0 

9107 DfiTfi 1,1,1,0,0,1, 

9103 DfiTfi 1,0,0,0,0,0, 

9200 DflTfi 0 » 0 ,0 ', 0,0,0 ', 

9201 DfiTfi 1,1,1,1,0.1, 

9202 DfiTfi 0 , 0 , 0 , 0 , 0 , 0 , 

9203 DfiTfi 0,1,0,0,1,0, 

9204 DfiTfi 1 , 1 ;, 0 ', 1 , 1 , 1 ; 

9205 DfiTfi 1,1,1,1,1,1, 

9206 DfiTfi 0,0,0,0,0,0, 

9207 DfiTfi 1,1, 0 ,0 ', 1', 1', 

9208 DfiTfi 8, 0,0 , i . 0.0 *, 

9290 LET te=PEEK 23672 
23673+4096* PEE K 23674 

9291 LET t=te-ti 

9292 PRINT RT 7,0;“Par 
£ conseguiu sair" 

9293 PRINT RT 9,4;“Em 
s e g u n d o s “ 

9294 STOP 

9300 CL6 :. PRINT RT 2, 
o ce gosta de a ventur as 
£ n ta o entre neste mis 
b i r i n t o , o n d e n i n g u e m 
atra v e s s a - l o e des co b 
cedo."" ' " De todos o 
i r o s q u e t e n t a r a m t r a n 
la bi rinto ,nunca mais t 
i c i a s s o b r e o s m e s m o s . 

9310 PRINT tt0; “p r eS SiO 
r te c ia para continuar 
9360 CL8 : PRINT "Te Cl 
Fm e n t a c a o : " 

9370 PRINT RT 10,2.;"* 
a direita"' - '" * o =?« o v 
uerda" -- '" * R=qira em 
si mesmo"''" * brerk= 
sso a frente" 

9380 PRINT #8;"(Pressi 
er tecla)": pause 0 
9390 GOTO 0 

9908 CLS : PRINT RT 3,3; FLfi 
; "L fi B I R I M T O 3D"; 

H 8 

9928 PRUSE 208: GOTO R300 

9997 STOP 

9998 SRUE "labirinto" LINE 9 


0 , 1 
0,1 
1,1 
1,0 
1,0 
0,1 
0,1 
1,0 
0,0 
0,0 
0,0 
0,1 
0,8 
1,1 
0,1 
1,0 
0,0 
0,1 

+256*P 


a bens! 

";t/SÓ 


0 ; " 

p e r i g 
t e r i 0 s 
c 0 n s e g 
ri rseu 
s a v e n 
s p 0 r e 
i v e ríi 0 s 

ne qua 
" : PRU 
a S d £ 

P =m 0 v e 
e para 
1 0 r n 0 
m 0 v e u 


EEK 

UO c 


Se v 
0 s a s 
0 l a 
u i u 
seg 
t u r e 
s te 
n 01 

tque 

SE 0 

MOV i 

par 

esq 

de 

m p a 


one qualqu 


SH 1 
FLRS 


900 


42 MICROHOBBY 




















































































































POR DENTRO DO APPLE 



Lançamento Oblíquo 
no Vácuo 

Cesar de Afonseca e Silva Neto e 
Wilson José Tucci 


Neste número nós iremos apresentar um 
programa que se assenrfelha bastante a um 
jogo, mas que traz consigo um princípio 
importante da Mecânica clássica. 

0 Princípio da Independência dos Mo¬ 
vimentos, proposto por Galileo, garante 
que em um determinado movimento com¬ 
posto, cada um dos movimentos compo¬ 
nentes se realiza como se os demais não 
existissem. 

Sendo assim, o lançamento oblíquo na¬ 
da mais é do que a composição de dois 
movimentos: um horizontal e outro verti¬ 
cal. O movimento horizontal caracteriza- 
se por ser um movimento uniforme, sem 
aceleração, mantendo durante todo o per¬ 
curso a velocidade inicial com que foi lan¬ 
çado, enquanto que o movimento vertical 
sofre a ação da gravidade, recebendo uma 
variação constante na sua velocidade, com 
o decorrer do tempo. 

O programa utiliza-se das seguintes 
fórmulas: 

VX = V * COS (A) 

VY = V * SIN (A) 

onde V e A representam a velocidade e 
o ângulo de lançamento, respectivamente; 

EX = VX * T 

EY = 159 - (H + VY * T - 4.9 * T * 2) 

onde EX representa o espaço percorri¬ 
do no eixo das abcissas, EY o espaço per¬ 
corrido no eixo das ordenadas, H a altura 
inicial e T o tempo. 

A figura 1 representa alguns pontos da 
trajetória do projétil durante o percurso. 

Neste jogo, o jogador terá que fornecer 
os dados necessários à realização de ca¬ 
da lançamento. Em seguida, a trajetória se¬ 
rá traçada na tela de alta-resolução, até 
que o projétil termine o movimento ou ul¬ 
trapasse os limites da mesma. Você terá 
três chances para acertar o alvo. Caso vo¬ 
cê erre na quarta tentativa, a casa será 
deslocada para uma nova posição escolhi¬ 
da aleatoriamente. 

O programa 

Logo no início, nas linhas 110 e 120, te¬ 
mos a instalação das duas rotinas em Lin¬ 
guagem de Máquina utilizadas pelo progra¬ 
ma. A primeira delas, que tem início em 


770, é responsável pela emissão de sinais 
sonoros através do alto-falante do Apple. 
Após esta ter sido instalada, poderemos 
obter notas de diferentes tonalidades e 
comprimentos, "POKEando" os valores 
adequados aos endereços 768 e 769, e 
chamando a rotina em seguida (CALL 
770). 

A segunda (início em 800) tenta repro¬ 
duzir o som de um disparo. Para utilizá-la. 


basta efetuar o CALL 800. 

Em seguida, temos a apresentação do 
programa, que utiliza as rotinas descritas 
anteriormente. Repare que a sub-rotina 
400-430 demonstra uma maneira interes¬ 
sante de enviar mensagens à tela, 
escrevendo-as de trás para a frente. 

A partir da linha 500, tem início o con¬ 
trole do lançamento do projétil, seguindo 
as fórmulas do movimento. 



Listagem do Programa. 


Í00 REM ROTINAS EM LIGU 


: VTAB 23: PRINT SPC( 40 

AGEM DE MAQUI 


): FOR I 

NA 


= 2 TO 22: VTAB I: HTAB 

ÜO FOR MEM = 770 TO 770 


i: PRINT 

+ 20: READ B 


SPC( 1);! HTAB 40: PRINT 

YTE: POKE MEM, BYTE: NEXT 


SPC( 1 

): NEXT : NORMAL 

120 FOR MEM = 800 TO 800 


160 Mí = "ESTE PROGRAMA S 

+ 33: READ B 


IMULA" 

YTE: POKE MEM, BYTE: NEXT 


170 V = 4: GOSUB 400 

180 Mí = "0 LANÇAMENTO OB 

130 REM APRESENTACAO 


tlôUO" 

140 TEXT : HOME 


190 V = 6: GOSUB 400 

150 INVERSE : VTAB í: PR 


200 Mí = "DE UM PR0GETIL. 

INT SPC( 40) 


// 
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210 V = 8: GOSUB 400 


560 HCOLOR = 3: HPLOT 0 


.22: GOTO 79 

220 CALL 800: CALL 800 


,159 TO 279,1 


0 

230 MS = "PRESSIONE 8UAL0 


59 TO 279,0 TO 0,0 TO 0,1 


770 IF EY > 60 THEN TJ = 

UER TECLA PAR 


59 


.23 

A C0MECAR" 


570 REM ENTRADA DE DADO 


780 IF EY > 90 THEN TJ = 

240 V = 15: GOSUB 400 


S 


.18 

250 Ni = "0U <ESDPARA TE 


580 VTAB 21: CALL - 868 


790 T = T + TJ: NEXT LA 

RMINAR" 


: INPUT "«UAL 


800 HPLOT EX,EY TO EX + 

260 V = V + 3: GOSUB 400 


A ALTURA (0-155) ?"-H590 


Í,EY TO EX + 

270 V = 20:H = 20 


IF H > 


i,EY - 2 TO EX,EY - 2 TO 

280 IF PEEK ( - 16384) 


155 THEN 580 


EX,EY - 

< 128 THEN N = 130:C = 10: 


600 VTAB 22: CALL - 868 


1 TO EX + i,EY - i: RETUR 

GOSUB 1100: FOR T = 1 TO 


: INPUT "«UAL 


N 

3 


A VELOCIDADE(0 - 65)?";V 


810 ER = ER + i: IF ER > 

00: NEXT :N = Í80:C = 20: 


610 IF V > 65 THEN 600 


3 THEN VTAB 

GOSUB 1 


620 VTAB 23: CALL - 868 


22: HTAB 25: PRINT " FIM 

100: FOR T = 1 TO 300: NE 


: INPUT "«UAL 


DE PAPO! 

XT : GOTO 280 


0 ANGULO (90,-90)? ";AN 


FOR I = 1 TO 5:N = 50: 

290 IF PEEK ( - 16384) 


630 IF AN > 90 OR AN < 


C = 50: GOSUB 1100:N = 80: 

= 155 THEN HOME : END 


- 90 THEN 620 


C = 40: GOSUB 1100: NEXT : 

300 POKE - 16368,0 


640 HOME : VTAB 21: PRIN 


RUN 

310 GOTO 500 


T "VELOCIDADE 


820 VTAB 22: HTAB 30: PR 

400 L = LEN (MI):C = 2 


("•V;") M/S": VTAB 22: P 


INT "ERROU" 

410 H = INT ((40 - L) / 


RINT "AL 


830 FOR PAUSA = 1 TO 700 

2) 


TURA ("-Hj") M ": VTAB 23 


: NEXT PAUSA: 

420 FOR I = L TO 1 STEP 


: PRINT 


HOME 

- i: VTAB V: 


"ANGULO (";AN;") GRAUS":A 


840 T = 0: GOTO 540 

HTAB I + H: PRINT HIDf 


= (AN » 


850 VTAB 22: HTAB 30:FLA 

(Ni,1,1) 


(4 * ATN (1))) / 180 


SH: PRINT "AC 

:N = 20 + I: GOSUB 1100: 


650 CALL 800 


ERTOU": NORMAL 

NEXT 


660 VY = V * SIN (A):VX 


860 FOR I = 1 TO 8:N = 9 

430 RETURN 


= V » COS (A 


0:C = 30: GOSUB 1100:N = 1 

500 REH LANÇAMENTO 


): HCOLOR = 2 


50:C = 20: GOSUB 1100: NEX 

510 T = 0 


670 FOR LAN = 1 TO 500 


T 

520 PXC = INT (160 * RN 


690 EY = 159 - (H + VY » 



0 (D) + 90:P 


T - 4.9 * T A 


870 FOR PAUSA = 1 TO 700 

YC = 159:X = 0: HOME 


2):EX = VX * T 


: NEXT PAUSA: 

530 REM DESENHA A CASA 


700 IF EY > 166 OR EY ( 


RUN 

540 HGR : HCOLOR = 3: H 


2 OR EX > 279 


1000 DATA 173,48,192,13 

PLOT PXC,PYC - 5 TO PXC,PY 


OR EX ( 0 THEN 810 


6,208,5,206,1 

C TO PXC + 10,PYC TO PXC + 


710 IF (EX > = PXC) AND 


,3,240,9,202,208,245,174, 



(EX ( = PXC 


0,3,76,2 

10,PYC - 5: HPLOT PXC - 3 


+ 18) AND (EY ) 157 AND 


,3,96 

,PYC - 3 


EY ( = 


1010 DATA 169,0,133,255 

TO PXC + 5,PYC - 9 TO PX 


168) THEN 850 


,169,255,133, 

C + 13,P 


720 IF EX > 219 AND EY < 


254,169,0,141,48,192,238, 

YC - 3: HPLOT PXC + 3,PYC 


60 THEN 810 


48,192,1 

TO PXC + 3,PYC - 3 TO PXC 


730 N = 80:C = 2: GOSUB 1 


66,255,202,208,253,198,25 

+ 7,PYC - 3 TO PXC + 


100 


4,240,5, 

7,PYC 


740 HCOLOR = 3: GOSUB 8 


230,255,76,40,3,96 

550 HCOLOR = 3: FOR TR 


00 


1100 POKE 768,N: POKE 76 

= 9 TO 159 STEP 10: HPLOT 


750 TJ = .34 


9,C: CALL 770 

0,TR TO 2,TR: NEXT TR 


760 IF H > 130 THEN TJ = 


: RETURN 
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A Mansão de Sherlock Holmes 


Romances policiais são uma boa diver¬ 
são para quem gosta de exercitar seu ra¬ 
ciocínio lógico. Um bom autor de livros 
deste tipo deve fornecer, ao longo do tex¬ 
to, todas as informações necessárias pa¬ 
ra que o leitor descubra o mistério da tra¬ 
ma que todas as obras deste gênero pos¬ 
suem. Porém, de forma dissimulada, 
iludindo-o elegantemente, com pistas 
falsas. 

Um dos mestres deste gênero é Conan 
Dayle, criador de Sherlock Holmes, modelo 
típico dos detetives: raciocínio frio, preci¬ 
so e fulminante. Baseado neste persona¬ 
gem foi criado A Mansão de Sherlock , um 
jogo onde todos os elementos de um ro¬ 
mance policial estão presentes: uma víti¬ 
ma, um local para o crime, a arma com que 
foi cometido e uma lista de suspeitos. E 
o detetive aqui é você. 

As Regras do jogo 

Este jogo é do tipo adventure (aventu¬ 
ra), ou seja, ao invés de se movimentar por 
meio de um joystick e realizar uma ação 
na tela você deve responder perguntas que 
gerarão uma ação que, ao invés de ser re¬ 
presentada por movimentos animados é 
representada por meio de reflexos e estra¬ 
tégias, próprios para jogos de ação (do ti¬ 
po Space Invade rs). 

Assim o programa lhe fornecerá, à ca¬ 
da situação, uma pergunta que deverá ser 
respondida através de um comando, for¬ 
mado por expressão sintática (caracterís¬ 
ticas que o diferencia de um jogo de ação). 

Para dar andamento ao jogo, sem pro¬ 
blemas, você deverá obedecer as seguin¬ 
tes regras: 

1) Procure, aposento por aposento, o lo¬ 
cal do crime; onde o assassino deixou a 
arma e quem o cometeu. 

2) Quando você tiver uma teoria sobre 
a solução do assassinato, deverá anunciá- 
la aos suspeitos. Para isso, deve ser digi¬ 
tado o comando 

3) Isso deve ser feito no mesmo aposen¬ 
to onde o crime foi cometido. 

4) Você deve ter em mãos a arma usa¬ 
da pelo assassino. 


5) Para solucionar completamente o 
mistério, é necessário saber quem come¬ 
teu o crime, com que arma e aonde foi exe¬ 
cutada a vítima. 

6) Para andar de uma sala para outra, 
use o comando ENTRE seguido pelo no¬ 
me do aposento. 

7) Para recolher uma arma de um deter¬ 
minado aposento, deve-se usar o coman¬ 
do LEVE seguido pelo nome da arma. 

8) Para abandonar uma arma em um 
aposento, utilize o comando "DEIXE" se¬ 
guido pelo nome da arma. 

9) O jogo terminará quando você des¬ 
cobrir o criminoso ou quando ele o pegar. 

As linhas do programa 


10 

- 290 

Inicialização. 

300 

- 690 

Mostra as instruções. 

700 

- 715 

Pergunta-lhe se deseja ver 
as instruções novamente. 

720 

- 830 

Início do jogo. 

870 


Pede por um comando. 

880 


Verifica se o detetive fez al¬ 
guma teoria. 

890 


Verifica se foi dado o co¬ 
mando para entrar em ou¬ 
tra sala. 

900 


Verifica se foi dado o co¬ 
mando para pegar uma ar¬ 
ma. 

910 


Verifica se foi dado o co¬ 
mando para abandonar 
uma arma. 

940 

- 960 

Término do tempo. 

970 

- 980 

Anuncia o nome do culpa¬ 
do. 

990 

- 1320 

Rotina sobre a teoria do de¬ 
tetive. 


990 - Verifica se ele tem a 
arma do crime nas mãos 
1000 -1070 - Mostra o lo¬ 
cal onde o detetive fará 
suas revelações. 

1080 - 1090 - Verifica se 
a teoria está seguindo a se- 
qüência: sala, arma, pes¬ 
soa. 

1140 - Mostra a mensagem 
dizendo que você resolveu 
o mistério. 


1150 - 1180 - Retorna ao 
início do jogo, se você de¬ 
sejar. 

1190 - 1200 - Sala errada. 
1210 - 1220 - Arma errada. 
1230 - 1240 - Pessoa erra¬ 
da. 

1250 -1250 - Checa a teo¬ 
ria, seguindo a ordem: ar¬ 
ma, pessoa e sala. 

1290 -1320 - Checa a teo¬ 
ria, seguindo a ordem: pes¬ 
soa, sala, arma e pessoa. 
1330 - 1460 Rotina de entrada na sala. 
1470 - 1640 Rotina de apanhar um ob¬ 
jeto na sala. 

1650 - 1740 Rotina de abandono de um 
objeto na sala. 

1 760 - 1770 Gera um número aleatório. 
1780 - 1800 Aguarda o usuário pressio¬ 
nar uma tecla para conti¬ 
nuar. 

1810 - 1890 Mostra informações. 

1900 - 1920 Fim do programa. 

Digite o programa e rode-o. As instruções 
serão mostradas logo no começo, 
informando-o sobre o nome da vítima, as 
possíveis armas, os suspeitos e as salas 
da mansão. 

Após a apresentação, você é convoca¬ 
do a procurar a arma, o local do crime e 
o culpado. Boa sorte, e cuidado com o as¬ 
sassino, pois ele o observa. Um passo em 
falso e... 


1LIST 
1 REM 

Í0 DATA FREDERICO, JOAO 
, CARLOS, ZECA, ARQUIBALD 
0, FRANCELINA, AGATA,GUIL 
HERME,MAURÍCIO,NINQN 
20 DATA SILVA,ALCANTARA 
,NEPOHUCENO,MACHADO,LOPES 
, ARANTES,LUDOVI CUS ,PIMEN 
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TA,BELAOONA,BATISTA 


IGOSO POR AI'!" 

30 DATA SALA DE ESTAR, 


ESCRITORIO,SALA DE JANTA 


Í96 VKie; = "SEU MEDICO 

R,ESTÚDIO,COZINHA,BANHEIR 


ACONSELHOU-O A MODERAR-SE 

0,SUAR TO,SOTAO,SUAR TO DE 


.MUITAS TEORIAS ERRADAS S 

HOSPEDES,PÔRAO 


OBRE 0 ASSASSINO NAO FAZE 

48. DATA REVOLVER,PUNHAL 


M BEM 'A SAUDE." 

,CORDA,CANDELABRO,FACA,VE 


260 XKi) = "AINDA NAO CO 

MENC 


MPLETAMENTE..." 

58 DATA MR.IOSO,SRA.GE 


210 XK2) = "MAIS UMA VEZ 

NOVEVA,WILMA LANDRA,CORON 


ERRADO!" 

EL MALTA, MARY SOFT,JAR8A 


220 XK3) = "VOCE DEVE ES 

S, REX 


TAR BJ? INÇANDO!" 

60 FOR X = 1 TO 10: READ 


230 XK4) = "ERRADO" 

FKX): NEXT : FOR X = 1 


240 XK5) = "ATE QUANDO ? 

// 

TO 10: READ LKX): NEXT 



78 FOR X = 1 TO 10: READ 


256 XK6) = "PENSE NOVAME 

PKX): NEXT : FOR X = 1 


NTE..." 

TO 6: READ WKX): NEXT : 


266 XK7) = "BOA TENTATIV 

FOR X = 1 TO 7: READ SKX 


A, MAS..." 

)s NEXT 


270 XK8) = "ADIVINHANDO, 

86 GOSUB Í7Ó0:N! = FKR) 


HEIN..." 

:FÍ = NI: GOSUB 1760:NÍ = 


280 XK9) = "EU DUVIDO... 

// 

NI + * * + LKR) 

96 DIM R(10,6) 


290 XK10) = "MAU JULGAME 

100 VKi) = "POIS BEM...E 


NTO..." 

STAO TODOS AQUI REUNIDOS. 


300 HOME : PRINT " BENVI 

. QUAL A GRANDE REVELACAO 


NDO A CASA DE SHERLOCK HO 

9" 


LMES" 

110 VI(2) = "CONTE QUAL E 


310 PRINT " 0 OBJETIVO D 

' A NOVIDADE, OH, GRANDE 


ESTE JOGO E' DESCOBRIR": 

DETETIVE..." 


PRINT : HTAB 14: INVERSE 

120 VK3) = "EU ACHO QUE 


: PRINT " 0 CULPADO! ": N 

VOCE ESTA PROXIMO DA RESP 


ORMAL : PRINT : PRINT "0 

OSTA...VEREMOS..." 


COMPUTADO 0 AJUDARA' NA P 

130 VK4) = "EU ESPERO OU 


ROCURA DO" 

E VOCE NAO ESTEJA PERDEND 


320 PRINT "ASSASSINO, DO 

0 TEMPO..." 


LOCAL DO CRIME E DA ARMA 

140 VK5) = "OH ...NAO, 0 


UTILIZADA.": PRINT : PR 

UTRA TEORIA...." 


INT "A POLICIA LOCAL REVE 

150 VK6) = "0 ASSASSINO 


LOU-SE INEFICAZ." 

ESTA ENCULADO....ESPERO 0 


330 PRINT "VOCE, A MAIS 

UE VOCE JA TENHA A RESPOS 


FAMOSA AUTORIDADE EM CRIM 

TA" 


ES"; 

160 VK7) = "ALGUÉM NESTA 


340 PRINT "MISTERIOSOS, 

SALA PODERÁ MATA '-LO, SE 


FOI CHAMADO PARA DESCOBRI 

VOCE NAO SOUBER A RESPOS 


R A RESPOSTA." 

TA." 


360 PRINT : PRINT "0 UNI 

170 VK8) = "SEU TEMPO ES 


CO FATO ESTABELECIDO E’8U 

TA SE ESGOTANDO...VOCE TE 


E 0 CRIME OCORREU EM ALGU 

M A RESPOSTA ?" 


M LUGAR DE UMA VELHA MAN¬ 

180 VI(9) = "FICOU PRESO, 


SAO CONHECIDA APENAS COMO 

HEIN? DEVE HAVER ALGO PER 


PRINT : PRINT "'A MAN 



SAO DE SHERLOCK HOLHES 
386 G08ÜB Í786 
426 PRINT "A VITIMA, ";N 
t;",": PRINT "RECUSOU-SE 
A RESPONDER QUALQUER PER 
GUN-TA FORMULADA PELA POL 
ICIA. ENTÃO, MCE NADA T 
EM NAS MAOS, APENAS SUA P 
ERSPICA- CIA E CORAGEM." 
436 PRINT : PRINT " AS S 
ALAS DA MANSAO SAO AS SEG 
UINTES: ": PRINT 
446 FOR X = i TO 9 STEP 
2: PRINT Pf(X); TAB( 26); 
PKX + 1): NEXT 
456 PRINT : PRINT " PARA 
VOCE ENTRAR EM QUALQUER 
APOSENTO, DIGITE 'VA PARA 
’E O NOME DO APOSENTO" 

460 GOSUB 1780 

470 PRINT " A ARMA DO AS 

SASSINATO PODE SER:" 

486 PRINT : FOR X = i TO 
5 STEP 2: PRINT WKX); T 
A8( 20);WKX + í): NEXT 
496 PRINT : PRINT "ESTES 
ITENS ESTÃO ESPALHADOS P 
ELA MANSAO OS POSSÍVEIS 
SUSPEITOS SAO: ": PRINT 
500 PRINT "MR.IOSO"; TAB 
( 20){"MILIONÁRIO" 

510 PRINT "SRA. GENOVEVA 
"; TAB( 20);"SUA ESPOSA" 
520 PRINT "WILMA LANDRA" 
; TAB < 20);"FILHA DO CASA 
L" 

530 PRINT "CORONEL MALTA 
"; TAB( 20);"LATIFUNDIARI 
O" 

540 PRINT "MARY SOFT"; T 
AB< 20);"GOVERNANTA" 

550 PRINT "JARBAS"? TAB( 
20);"MORDOMO" 

560 PRINT "REX"; TAB( 20 
);"CACHORRO DA FAMÍLIA" ' 
570 PRINT : PRINT "TODOS 
(ATE O CACHORRO) TINHAM 
ODIO DE" 

580 PRINT NI;"." 

590 GOSUB 1780 
600 PRINT "SUA FUNCAO E' 
VERIFICAR TODOS OS APOSE 
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N-TOS A PROCURA DE PROVAS 


710 GET Dl 


960 PRINT "GRAÇAS A ";St 

E DESCOBRIR QUEM MATOU " 


715 IF Dl = "S" THEN GO 


(C(3));", 0 ASSASSINO DES 

;FtíV 


TO 300 


TA ESTÓRIA": PRINT 

6i0 PRINT : PRINT "8UAND 


720 GOSUB 1760:C(i) = R 


970 PRINT "CASO LHE INTE 

0 VOCE TIVER ALGUM PALPIT 


730 GOSUB 1760: IF R > 6 


RESSE, A ARMA DO CRIME ER 

E, DIGITE PARA COMUM 


THEN 730 


A": PRINT N!(C(2));" E EL 

ICAR 0 ACONTECIMENTO. TO- 


740 C(2) = R 


E FOI COMETIDO NO ": PRIN 

DOS VIRÃO ATE ONDE VOCE S 


750 GOSUB 1760: IF R > 7 


T PKC(D) 

E ENCONTRA E OUVIRÃO A SU 


THEN 750 


980 PRINT : GOTO 1900 

A BRILHANTE DEDUCAO" 


760 C(3) = R:UL = 50: GOS 


990 IF P(2) = 0 THEN PR 

620 PRINT : PRINT " VOCE 


UB 1760:P(i) = R:P(2) = 0 


INT "INFELIZHENTE, VOCE N 

DEVE OBSERVAR ALGUMAS RE 


: -GOSUB 1760:UL = UL - R 


AO ESTA CARREGANDO A ARMA 

GRAS. EM PRIMEIRO LUGAR, 


770 FOR X = 1 TO 10:R(X, 


DO ASSASSINO": PRINT : P 

VOCE PRECISA ANUNCIAR 


0) = 0:F(X) = 0: NEXT 


RINT " LEMBRE-SE DAS REGR 

SUA TEORIA NO MESMO APOS 


780 FOR X = 1 TO 6 


AS!": PRINT : RETURN 

ENTO ONDE OCOR-REU 0 CRIM 


790 GOSUB 1760: IF R > 6 


1000 TEXT : HOME 

E": PRINT 


THEN GOTO 790 


1010 81 = 5: IF Z > (Z / 

630 PRINT "ALEM DISSO, V 


800 IF F(R> = 1 THEN GO 


3) * 2 THEN 81 = 10 

OCE DEVE ÉSTAR CARREGANDO 


TO 790 


1020 GOSUB 1760: IF R > 

A ARMA DO CRIME" 


810 T = R:F(R) = 1 


81 THEN GOTO 1020 

640 PRINT " VOCE PODE AP 


820 GOSUB 1760:R(R,R(R,0 


1030 PRINT VKR): PRINT 

ANHAR A ARMA E CARREGA-LA 


) + 1) = T:R(R,0) = R(R,0 



SALA POR SALA, DIGITANDO 


) + 1 


1040 PRINT "DE ACORDO CO 

'LEVE ’ E 0 NOME DA ARMA. 


830 NEXT : HOME : POKE 3 


M VOCE, 0 ASSASSINATO DE 

POR EXEMPLO 'LEVE REVOLV 


7,10 


";Nl: PRINT "OCORREU EM " 

ER’." 


840 FOR Z = 1 TO UL 


• 

f 

650 GOSUB 1780 


850 GOSUB 1810 


1050 PRINT PKP(D): PRI 

660 PRINT " VOCE PODE CA 


860 PRINT 


NT " COM ";W1(P(2));"." 

RREGAR APENAS UMA ARMA 


870 INPUT "8UAL SEU COMA 


1060 PRINT : PRINT "AGOR 

DE CADA VEZ. SE VOCE 8UIZ 


NDO?";Il 


A, A QUESTÃO E':8UEH COME 

ER DEIXAR DE LADO ALGUMA 


880 IF 11 = THEN GO 


TEU 0 CRIME": PRINT 

ARMA EM UM DOS APOSENTOS, 


SUB 990: GOTO 930 


1070 FOR X = 1 TO 7: PRI 

DIGITE 'DEIXE' SEGUIDO P 


890 IF LEFT1 (11,7) = " 


NT X?"- ";Si(X): NEXT : 

ELO NOME DA ARMA" 


VA PARA" THEN GOSUB 1330 


PRINT 

670 PRINT 


: GOTO 930 


1080 PRINT "QUAL DELES F 

680 PRINT "ANTES QUE EU 


900 IF LEFTI (11,4) = " 


OI 0 CULPADO ?(i-7) -DIGI 

ME ESQUEÇA: 0 ASSASSINO N 


LEVE" THEN GOSUB 1470: G 


TE SEU NUMERO "? 

A08UER SER PEGO. SE VOCE 


OTO 930 


1085 GET 11:I = VAL (11 

DEMORAR MUITO PA-RA DESCO 


910 IF LEFTI (11,5) = " 


): IF I ( 1 OR I > 7 THEN 

BRI-LO, ELE TERA' TEMPO 


DEIXE" THEN GOSUB 1650: 


GOTO 1085 

PARA SE PREPARAR E DAR-LH 


GOTO 930 


1090 PRINT : GOSUB 1760: 

E 0 HESHO FIM 8UE SUA VIT 


920 PRINT : PRINT "DESCU 


IF R > 3 THEN 1090 

IMA ANTERIOR." 


PE-ME , MAS NAO ENTENDI 0 


1100 ON R GOTO 1110,1250 

690 PRINT : PRINT "AH, H 


8UE VOCE 8UIS DIZER COM 


,1290 

AIS UM LEMBRETE. TODO BOM 


:";I1 


1110 PRINT : IF C(i) < 

DETETIVE POSÇUI UM CADER 


930 NEXT 


> P(i) THEN GOTO 1190 

NINHO ONDE ANOTA SUAS IDE 


940 TEXT : HOME : PRINT 


1120 IF C(2) ( > P(2) T 

IAS. E UMA BOA VOCE TER 0 


"SINTO INFORMA'-LO QUE 0 


HEN GOTO 1210 

SEU" 


SENHOR VEIO JUNTAR-SE COM 


1130 IF C(3) < ) I THEN 

700 VTAB 23: PRINT "DESE 


";NI;"NESTA" 


GOTO 1230 

JA REVER AS INSTRUÇÕES (S 


950 PRINT "MANSAO CELEST 


1140 PRINT : PRINT "MEUS 

/N)"j 


IAL": PRINT 


PARABÉNS! VOCE RLSOLVEU 
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0 HISTERIOtCA T ENTRE NOS 
,EU NUNCA DUVIDEI REALHEN 
-TE DE SUA CAPACIDADE UH 
MINUTO SEQUER•) 

Ü45 PRINT " 0 ASSASSINO 
DE ";Nf: PRINT * ERA HES 
HO ";Si(C(3)): PRINT "0 C 
RIHE FOI COHETIDO EM*.";PI 
(C(D): PRINT "COH ";HI(C 
( 2 )) 

1150 PRINT : PRINT "VOCE 
GOSTARIA DE RESOLVER OUT 
RO MISTÉRIO OU GOSTARIA D 
E SAIR DE FERIAS?(M/F)"; 
1160 GET II: IF II < > 
"M" AND II < > "F" THEN 
DOTO 1160 
1165 PRINT II 
1170 IF II = "F" THEN T 
EXT : HOME : PRINT "BOA V 
IAGEM, E VOLTE BREVE!(NO 
S SABEMOS SUE OS CRIMINO 
SOS NAO TIRAM FERIAS....) 
GOTO 1930 

1180 POP : CLEAR : GOTO 
10 

1190 PRINT : GOSUB 1760: 
PRINT XI(R) 

1200 PRINT Pi(P(i));" NA 
0 E’ 0 APOSENTO CORRETO": 
PRINT : RETURN 
1210 PRINT : GOSUB 1760: 
PRINT Xi(R) 

1220 PRINT HI(P(2))j" E' 
A ARMA ERRADA!": PRINT : 
RETURN 

1230 PRINT : GOSUB 1760: 
PRINT XKR) 

1240 PRINT SKI);" TEM U 
M ALIBI PERFEITO.": PRINT 
: RETURN 

1250 IF C(2) ( > P(2) T 
HEN GOTO 1210 
1260 IF C(3) ( > I THEN 
GOTO 1230 

1270 IF Cd) ( > Pd) T 
HEN GOTO 1190 
1280 GOTO 1140 


1290 IF C(3) < > I THEN 


ACHO 0UE ESTA ARMA NAO ES 

GOTO 1230 


TA RELACIONADA A ESTE CAS 

1300 IF Cd) < > Pd) T 


0 !": RETURN 

HEN GOTO 1190 


1530 IF R(P(í),0) = 0 TH 

1310 IF C(2) ( > P(2) T 


EN PRINT : PRINT " PAREC 

HEN 1210 


E 0UE NAO HA' ARMAS NESTE 

1320 GOTO 1140 


LUGAR. QUEM SABE EM ALGU 

1330 IF LEN (II) ( 9 TH 


M OUTRO ?" 

EN GOTO 1380 


1540 FOR Y = 1 TO R(P(i) 

1340 FOR X = 1 TO 10 


,0) 

1350 IF RIGHTi (Il r LEN 


1550 IF R(P(1),Y) = X TH 

(II) - 7) = PMX) THEN 


EN GOTO 1580 

GOTO 1400 


1560 NEXT 

1360 IF RIGHTi (II, LEN 


1570 PRINT : PRINT "INFE 

(II) - 8) = PKX) THEN 


LIZMENTE, MAS NAO EXISTE 

DOTO 1400 


TAL ARMA NESTE APOSENTO" 

1370 NEXT 


1580 T = P(2):P(2) = R(P( 

1380 PRINT : PRINT " INF 


Í),Y):R(P(1),Y) = T 

ELIZHENTE NAO CONSTA NA P 


1590 IF T > 0 THEN RETU 

LANTA DA CASA DE SHERLOCK 


RN 

// 


1600 R(P(1),Y) = R(P(1),R 

1390 PRINT : RETURN 


(P(í),0)> 

1400 IF X = Pd) THEN P 


1630 R(P(i),0) = R(P(1),0 

OP : PRINT : PRINT " NOS 


) - 1 

JA’ ESTAMOS AI": GOTO 860 


1640 RETURN 

1650 IF LEN (ID ( 7 TH 

1410 IF X ( >6 THEN G 


EN GOTO 1710 . 

OTO 1450 


1660 IF P(2) = 0 THEN P 

1420 GOSUB 1760: IF R > 


RINT : PRINT " MAS NAO ES 

4 THEN GOTO 1450 


TAHOS CARREGANDO NADA !": 

1430 PRINT : PRINT "INFE 


RETURN 

LIZMENTE 0 ";PI(6);" ESTA 


1670 FOR X = 1 TO 6 

VA EM USO.TENTE NOVAMENTE 


1680 IF RIGHTI (II, LEN 

MAIS TARDE." 


(II) - 5) = HKX) THEN 

1440 RETURN 


GOTO 1720 

1450 Pd) = X 


1690 IF RIGHTI (II, LEN 

1460 RETURN 


(II) - 6) = HKX) THEN 

1470 IF LEN (II) ( 6 TH 


GOTO 1720 

EN 1520 


1700 NEXT 

1480 FOR X = 1 TO 6 


1710 PRINT : PRINT " PAR 

1490 IF RIGHTi (11, LEN 


ECE-ME QUE ESTA ARMA NAO 

(II) - 5) = Wi(X) THEN 1 


ESTA’ RELACIONADA A ESTE 

530 


CASO !": PRINT : RETURN 

1500 IF RIGHTi (II, LEN 


1720 IF X < ) P(2) THEN 

(II) - 6) = HKX) THEN 


PRINT : PRINT " NAO EST 

GOTO 1530 


AMOS CARREGANDO ESTA ARMA 

1510 NEXT 


": PRINT : RETURN 

1520 PRINT : PRINT " EU 


1730 R(P(1),0) = R(P(1),0 
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) + i:R(P(i),R(P(i),6)) = 
P<2):P<2) = 6 
1746 RETURN 

1766 R = INT ( RND (1) * 
11): IF R < 1 OR R > 16 
THEN GOTO 1766 
1776 RETURN 

1786 VTAB 23: PRINT "PRE 
SSIONE <RETURN> PARA CONT 
INUAR... "; 

1796 GET Di 

1866 PRINT : HOME : RETU 
RN 


1816 POKE 34,6:CP = PEE 
X (37): VTAB i: POKE 35,7 
: HOHE 

1826 PRINT "APOSENTO: 
";PI(P(i)) 

1836 PRINT "CARREGANDO: 
";NS(P(2» 

1846 PRINT "VITIMA: "?N 

t 

1856 PRINT "VISÍVEL: "; 

1866 IF R(P(i),6) = 6 TH 
EN GOTO 1896 



1876 FOR X = 1 TO R(P(i) 
, 6 ) 

1886 PRINT W(R(P(i),X)) 
;" ";: NEXT 

1896 PRINT : POKE 35,24: 
POKE 37,CP: POKE 34,7: R 
ETURN 

1966 VTAB 26: PRINT "PRE 
SSIONE (RETURN) PARA CONT 
INUAR"; 

1916 GET Dí 
1926 HOME :: RUN 
1936 END 



spmp iisq 

MESA P/ MICROS PESSOAIS 
MEDIDAS: 114 x 69 x 71 cm. (altura) 
SOBRE TAMPO: 114 x 31 cm. 
ALTURA TOTAL: 97 cm. 


UM LUGAR IDEAL 
PARA SEU MICRO 


MESAS ESPECIAIS PARA SEU TK 


“Toda desmontável, estrutura 
de aço e tampa em fórmica” 
Consulte-nos: Temos também 
Formulários e Periféricos 



MESAS PARA 
TODOS OS MICROS 


RUA BARÃO DE JUNDIAÍ, 1.090 S/5 
JUNDIAÍ — SP — FONES: 434-6828 
434-6422 

Representantes: Porto Alegre, Fone: (0512) 41-8244; Recife, Fone: 
222-3241/231-2289; Belo Horizonte, Fone: (031) 224-8589; Santos, Fone: 
35-7236; Brasília, Fone: (061) 225-6684; Goiânia, Fone: (062) 225-6266/6080; 
Belém, Fone: (091) 233-2996; Salvador, Fone: 244-9311; Campinas, Fone: 
51-2607: Limeira, Fone: (0194) 41-9900. 


SISTEMAS 

dialógica — - 


DESENVOLVEMOS OU ADAPTAMOS 
0 PROGRAMA CERTO PARA ATENDER 
AS SUAS NECESSIDADES 

Contabilidade - Folha de Pagamento - Estoque 
Contas a Pagar/Receber 
Transmissão de Dados 
“Software para Hotelaria” (completo) 
Software para Agências de Propaganda 
específicos. 

Clientes bem atendidos em todo o País. 
Breve filial Rio de Janeiro. 



CURSOS 

dialógica ===== 


Horários 


PROGRAMAÇÃO DE 
MICROCOMPUTADORES 
EM BASIC 

2? s e 4 as - 19/22 h 
3? s e 5? s - 19/22 h 
sábados - manhã/tarde 


Duração - 36 horas + prática livre 

Vagas - 12 por turma, micros à disposição com 

instrutor 

Preço: promocional em 2 parcelas 


J dialógica 

M Comunicação • Sistemas Ltda 


Rua Fradique Coutinho, 50 
Pinheiros 


64-0331 

64-7131 
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Basic Um Enfoque Profissional 


Carlos Guillermo Franco Rodriguez 

Editora Atlas • 

Com o objetivo de condensar a lingua¬ 
gem Basic e dirigir suas aplicações a um 
segmento de público profissional, Carlos 
Guillermo apresenta, nesta obra, uma se¬ 
leção de comandos Basic mais utilizados 
no dia-a-dia das empresas, assim como 
nos cursos de Programação de 
Computadores. 

Estes comandos vêm acompanhados de 
exemplos ilustrativos de programas e seus 
resultados, além de vários exercícios, no 
final de cada capítulo, com diferentes 
graus de dificuldade. 

Dividido em 8 capítulos, o autor, no pre¬ 
fácio do livro, sintetiza cada um deles: 


"Depois de introduzir alguns conceitos es¬ 
truturais da linguagem no Capítulo 1, ex¬ 
plicamos com detalhes nos Capítulos 2 a 
5 os comandos elementares do Basic. Nos 
capítulos 6 e 7 estudamos algumas ins¬ 
truções que permitem explorar melhor os 
recursos da linguagem. Finalmente, dedi¬ 
camos o Capítulo 8 à manipulação de da¬ 
dos em Arquivos Seqüenciais e Direto em 
disco, oferecendo ao aluno alguns exem¬ 
plos e aplicações freqüentemente encon¬ 
tradas em ambientes profissionais". 

Vale ressaltar, ainda, que todas as no¬ 
ções mostradas neste livro podem ser 



adaptadas para programar a maioria dos 
computadores que use o Basic da Micro¬ 
soft. M.R. 


Wordstar - IBM PC e seus compatíveis - Guia do Usuário 


Com o intuito de dar maior credibilida¬ 
de a este Sistema de Processamento de 
texto, este livro foi todo composto com a 
utilização do próprio Wordstar. E, como o 
título desta obra sugere, esta publicação 
visa conjugar o computador pessoal da 
IBM (mais conhecido como PC) e o 
Wordstar da MicroPro/BraSoft, processa¬ 
dor de texto mais popular, distribuído em 
todo o mundo. Seguindo esta linha de ra¬ 
ciocínio, o leitor terá a oportunidade de to¬ 
mar contato com a versão 3.4 do Words¬ 
tar para 16 bits. Ela oferece a possibilida¬ 
de de conversão dos arquivos editados em 
versões anteriores para esta, mais atual. 


Richard Curtis 

Editora 
McGraw-Hill 

IBM PC e seus Compatíveis 


Este texto apresenta ainda, os quatro 
programas opcionais do Wordstar: o Mail- 
Merge, o SpelIStar, o CorrectStar e o 
Starlndex. 


WORDSTAR 


GUIA DO USUÁRIO 



Em suma, esta publicação lhe ensinará 
a fazer o Wordstar funcionar. De acordo 
com o autor - "Ela não lhe ensinará a usar 
todos os comandos do Wordstar isolada¬ 
mente, mas se você o ler do começo ao 
fim e, isto é muito importante, seguir suas 
sugestões, poderá realizar muitas coisas 
interessantes na área de processamento 
de texto, usando o Wordstar no seu PC". 
M.R. 


Programação 
com TK-2000 

Aloísio Pinto Alves 

Editora Atlas 


PROGRAMACAD com 

/ TK 2000 

ALCHStO PINTO AO/ES 

Compatível com a Unha Apple 



otlox 


"Programação com TK-2000" é mais 
uma publicação da Editora Atlas. De au¬ 
toria de Aloísio Pinto Alves, este livro é di¬ 
rigido às disciplinas de Iniciação à Progra¬ 
mação e Linguagem Basic. 

Resultado de um trabalho de equipe, en¬ 
volvida no ensino de programação para mi¬ 
crocomputadores, do Fundo de Pesquisa 
do Instituto de Administração - FUNAD, ór¬ 
gão que o autor dirige, "Programação com 
TK-2000" foi dividido em três segmentos 
para facilitar, didaticamente a leitura. 

Na Parte I é oferecida ao leitor noções 
básicas de programação, possibilitando a 
transposição da solução de um problema 
para a linguagem do computador. Nesta 
parte são apresentados problemas classi¬ 
ficados, como lineares, que permitem ao 
aluno a solução dos mesmos, além do do¬ 
mínio dos recursos do equipamento. 

Com o objetivo de dar um maior instru¬ 
mental ao aluno, na Parte II é ensinada a 
Linguagem Basic, com a inclusão do co¬ 
mando de desvio condicional e demais 
recursos. 

Na terceira e última parte, o estudante. 


já com uma "bagagem" maior de informa¬ 
ções, poderá compreender, muito bem, os 
conceitos básicos de manipulação de ar¬ 
quivos, além de alguns dados sobre mon¬ 
tagem de Sistemas de Processamento. 

Estas três partes mostram, evolutiva¬ 
mente, as noções básicas necessárias para 
aqueles que estão interessados em tomar 
contato com o mundo da informática. Sen¬ 
do que, de acordo com o interesse e obje¬ 
tivo de cada um, o leitor poderá estudar 
só a primeira Parte, ou a primeira e a se¬ 
gunda ou as três. Segundo o autor, "Es¬ 
tudar só a Parte I significa querer ter um 
primeiro contato com o computador, co¬ 
nhecer sua estrutura de funcionamento. 0 
estudo das Partes I e II significa o desejo 
de realizar atividades com o uso do com¬ 
putador". E, finalmente conclui, "0 estu¬ 
do das três partes deve ser o objetivo de 
pessoas que realmente desejam desfrutar 
de todo o potencial de recursos de um 
microcomputador". 

Aloísio Pinto Alves é mestre em Admi¬ 
nistração pela Faculdade de Economia e 
Administração da FEA/USP e professor ti¬ 
tular da FAAP. M.R. 
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TK 2000 II - 
Entendendo a ROM 

Geraldo Coen 


€NT€ND€NDO fl BOM 


mkromega 

GCRMDO CO€N /v,ICROPIGIMl 


Os usuários do TK-2000 têm agora um 
importante instrumento de ajuda,na so¬ 
lução das suas indagações sobre a ROM 
do TK-2000. "Entendendo a ROM", de 
Geraldo Coen, é um livro que esteve,du¬ 
rante certo tempo,na pauta de possíveis 
lançamentos da Editora Micromega. A 
preocupação dos Editores era com rela¬ 
ção à necessidade e aplicabilidade do seu 
conteúdo para os usuários do TK-2000. 
Porém, com o decorrer do tempo, o con¬ 
tato mantido com tais usuários, na Mi- 
crohobby, levou-nos à pensar seriamen¬ 
te em transformar as notas de trabalho 
deste experiente profissional de softwa¬ 
re, em livro. Mas, não bastava apenas um 
livro, era necessário apresentar uma obra 
que extrapolasse os conceitos sobre o 
microprocessador 6502, mostrando real¬ 
mente todo o universo do uso de sua 
ROM - baseando-se neste intuito surgiu 
esta obra, toda ela estruturada em cima 
da experiência do autor. 

O objetivo principal de Coen, com o li¬ 
vro, foi "propiciar ao leitor, uma melhor 
compreensão de algumas técnicas im¬ 
portantes de software, mostrando um 


programa longo e não trivial". Para isto, 
Geraldo incluiu a implementação de um 
monitor, um miniassembler, um interpre¬ 
tador Basic, rotinas de comunicação com 
o operador e as rotinas básicas de entra¬ 
da e saída (drives de 1/0). 

Dividido em cinco capítulos, o livro 
apresenta, inicialmente, as principais de¬ 
finições para uma melhor compreensão 
das rotinas da ROM; posteriormente 
mostra o conteúdo da memória ROM, fa¬ 
lando sobre suas rotinas e a distribuição 
dos módulos. A seguir, o autor ilustra co¬ 
mo usar a ROM, abordando alguns itens 
como: a distribuição das áreas da ROM, 
entre outros. 

E, assim, segue o livro, fornecendo ao 
leitor toda a complementação de infor¬ 
mações não existentes no Manual 
Técnico. 

"Entendendo a ROM do TK-2000/U" 
está aí. Esperamos que seus leitores o 
apreciem, assim como façam críticas. 
Através delas poderemos chegar ao que 
o usuário do 2000 deseja. Ana Lucia de 
Alcântara. 


d BASE II - 
Sistemas para o 
gerenciamento de 
Banco de Dados para 
Microcomputador. 

Editora: Atlas. 

Autor João* Alexandre Magri. 


d BASE III - 
Interativo. 

Editora: Atlas. 

Autor: Laércio J.L. Cosentino. 


Wordstar - 

Manual para Processamento 
de textos para 
micros de 8 e 16 Bits. 

Editora: Atlas. 

Autor: José Antonio A. Ramalho. 


Outros Lançamentos 

Manual do Apple - 
d BASE II - Macintosh, 

para principiantes. Editora: McGraw-HHI. 

Editora: McGraw-Hill. Autor: William B. Sanders. 

Autor: Alan Freedman. 

d BASE III - 
Banco de Dados para 
todas as aplicações. 


Manual do APPLE 

MACINTOSH 

WlLUAM B. SANDERS 



Editora: McGraw-Hill. 

Autor: Robert A. Byers. 


Programas práticos em 
IBM PC e seus compatíveis. 

Editora: McGraw-Hill. 

Autores: Lon Poole, Mery Borchers e 
Peter M. Burke. 

0 que é Informática. 

Editora: Brasiliense 

Autor: João Clodomiro do Carmo. 



João Clodomiro cio Carmo 

O QUE É 
informática 


editora brasiliense 
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-HH 


tt 


Desenhos Artísticos 


Este programa tem como objetivo ajudar aos usuários do TK-85 
a elaborarem, com a maior facilidade, desenhos em seus micros. 

Ao fornecer os dados para o computador, este se encarregará 
de fazer o desenho na tela ou definir um ponto, em qualquer parte 
da mesma. Com ajuda das teclas de direcionamento, o usuário 
poderá rabiscar o que desejar em seu vídeo. O programa permi¬ 
te ainda, o traçamento de linhas retas, diagonais ou até mesmo 
a criação de figuras circulares. 

Com esses recursos e um pouco de imaginação, você poderá 
fazer lindas figuras, utilizando o seu TK-85. Posteriormente, es¬ 
tes desenhos poderão ser gravados em fita cassete ou impres¬ 
sos, com o auxílio de uma impressora. 

O usuário, ao rodar o programa, se deparará com o seguinte 
tipo de pergunta: "Qual a opção (0-9)?". Este, por sua vez, terá 
a sua disposição dez tipos de opções que serão detalhadas, mais 
adiante. 

A opção zero difere das demais, no seguinte aspecto: o usuá¬ 
rio terá que definir um valor qualquer para (X,Y), sendo este cor¬ 
respondente ao ponto de origem. Desta forma, o usuário pos¬ 
suirá total controle sobre as teclas de direcionamento, propor¬ 
cionando ao mesmo plena liberdade de movimentação na tela. 
Para retornar ao item das opções basta pressionar a tecla "9". 

A opção "1" pede que se introduza um valor para (X,Y), onde 
este irá "plotar" um ponto na coordenada que foi definida. Já 
a opção "2" faz o oposto. Ela "unplot" o ponto da coordenada 
definida. 

A opção "3" é mais complexa do que as duas primeiras, esta 
pede que se defina duas coordenadas (X e X 2 , Y e Y 2 ) sendo 
X,Y a inicial e X 2 , Y 2 a final. Com esses dados, o computador 
traçará uma linha, que irá interligar esses dois pontos, podendo 
ser uma diagonal ou uma reta. A opção "4" faz o inverso da an¬ 
terior, esta "unplot" a linha que, anteriormente foi traçada entre 
as duas coordenadas. 

A opção "5", mais complexa que a terceira, pede o valor das 
coordenadas (X,Y) e a extensão do raio. Em seguida, é solicita¬ 
do o tamanho do diâmetro da curva -1 e da curva -2. A opção 
"6" tem a mesma função da quinta, mas contrariamente, esta 
"unplot" a circunferência, que anteriormente havia sido plotada. 

A opção "7" permite transpor a figura desenhada na tela para 
a impressora. A opção "8" possibilita gravar o programa e o de¬ 
senho da tela em fita cassete. E, finalmente a "9" interrompe 
a execução do programa. 


Notas sobre o programa 


Linha 10 
Linha 110 
Linha 200 
Linha 1000 
Linha 2000 
Linha 3000 
Linha 4000 
Linha 5000 
Linha 6000 
Linha 7000 
Linha 8000 
Linha 


100 Montagem da tela de desenho. 

180 Determina qual é a opção. 

270 Rotina da opção "0". 

1100 Rotina da opção "1". 

2010 Rotina da opção "2". 

3210 Rotina da opção "3". 

4010 Rotina da opção "4". 

5160 Rotina da opção "5". 

6010 Rotina da opção "6". 

7170 Rotina da opção "7". 

8040 Salva o programa e a tela em fita. 
9000 Interrompe a execução do programa. 


Listagem do programa. 


10 PRIWT 

4-4-4-44-!-: !-: b 5 

20 PRINT 


55111112 2 2 2 2 3 3 3 33 
02 4-6 3024630246 3 


6 TO 10 5TEP 
! !! ;Th5 31; ‘ 


02463024630 
30 PRINT 


40 POP K=: 
50 PRINT ! 
60 NEXT K 
70 PRINT 
60 PRINT 
90 PRINT 
100 PRINT 


110 PRINT RT 21,0;"QUAL R ÜPCPÜ 
(0-93? 

120 INRUT O 
130 LET G=INT 0 

140 IF ü<0 QR G >9 THEN GOTO 120 
150 IF G =0 THEN GOTO 200 
160 IF 0=9 THEN GOTO 9000 



170 GGSUB (0*10003 
160 GOTO 110 
200 GOSUB 1000 
210 LET R*=INKEY$ 
215 PLGT X,Y 


220 

•f 

230 

13 

IF 

*$="5" 

THEN 

LET X=X-tX 

> 6 

IF 


THEN 

LET X =X + (X 

<6 

240 
7 3 

250 

3 

260 

270 

IF 

fl$="7” 

THEN 

LET Y=Y+(Y 

< 

IF 

P.$ = “ 6” 

THEN 

LET Y=Y-(Y 

> 4 

IF R$=“9“ 
GOTO 210 

THEN 

GOTO 110 


1000 

PRINT RT 

21,0;* 

' COORDENADO 



,, y «. 0 _ 0 2. ) 

1010 1HPUT X 
1020 LET XsINT X 

1030 IF X <6 GR X >61 THEN GOTO 10 
10 

1040 PRINT RT 21,0;“COORDENADA “ 
“Y““(4-373“ 

1050 INPUT Y 
1060 LET Y=sINT Y 

1070 IF Y <4 GR Y > 37 THEN GOTO 10 


50 

1060 IF O-l THEN PLOT X,Y 

1090 IF G =2 THEN UNPLOT XY 

1100 RETURN 

2000 GGSUB 1000 

2010 RETURN 

3000 GGSUB 1000 

3010 PRINT RT 21.0; M COORDENADA 
,, X2 ,,, ‘ (6-613 “ 

3020 INPUT X2 

3030 LET X2=INT X2 

3040 IF X2<6 GR X2>61 THEN GOTO 


3020 

3050 PRINT RT 21,O;"COORDENADA 
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3050 
3070 
3050 
3060 
3030 
3100 
3110 
3120 
3130 
3140 
Y1 

3150 

3160 

3170 

3130 

3130 

3200 

3210 

4000 

4010 

5000 

5010 

0 “ 

5020 
5030 
CURUR 
5040 
5050 
5040 
5050 
CURUR 
5070 
5030 
5070 
5030 
5100 
5110 
5120 
5125 
YY > 3 
5130 
5140 
5150 
5160 
5000 
6010 
7000 


(4-37) " 

IttPUT Y2 
LET Y2 = INT Y2 

IF Y2 < 4 ÜR Y2 >37 THEN GOTO 

LET G =0 
LET H =0 
LET XI= X2-X 
LET Y1=Y2-Y 
LET Z=RBS XI 

IF RB 5 Y1>Z THEN LET Z=RB5 


: + i 

PLOT G+X,H+Y 
UNPLOT G+X,H+Y 


FOR F = 1 TO I 
IF 0=3 THEN 
IF 0=4 THEN 
LE! G=G+X1/Z 
LET H=H+Y1/Z 
NEXT F 
RET UR N 
GOSUo 3000 
RET UR N 
G05UB 1000 

PRINT RT 21,0;“DEFINR 0 RRI 
INPUT R 

PR INT RT 21,0;"DIRMETRQ DR 
1 (0-40) 

IHPUT Cl 

IF C1<0 ÜR Cl>33 THEN GOTO 


,0; "DIRMETRO DR 

í) " 


PR INT RT 21,i 
2 £";Cl; ' -401 
INPUT C2 

IF 02 <C1 GR C2 >40 THEN GOTO 


FOR K 
LET R 
LET XX 
LET YY 
IF XX < 
7 THEN 
IF 0=5 
IF 0=6 
NEXT K 
RET UR N 
GOSUB 
RETURN 
PR INT 


qi TC* C2 5TEP .25 
K/20+PI 
=X+R*SIN R 
=Y+R*CÜS R 

6 OR XX>61 ÜR YY <4 ÜR 
GOTO 5150 
THEN PLOT XX,YY 
THEN UNPLOT XX, YY 


5000 

RT 0 ,0;“ 

7010 PRINT RT 1,0;"^ 

7020 PRINT RT 21,0;" 

7030 FOR K =2 TO 20 
7040 PRINT RT K ,0; " 

7050 NEXT K 
7050 COPY 

7070 PRINT RT 0,3;"5311111222223 
333344444555555" 

7030 PPI^iT RT 1 :5; "0245302453024 
5302453024530" 


7090 

LET J =3 



7100 

FOR K =36 

TO 

18 ST E P 

7110 

PPI^rr RT 

U , 0 

K 

7120 

LET J=J +1 



7130 

NEXT K 



7140 

PRINT RT 

17 , 

i; s 

7150 

PRINT RT 

18, 

i; 6 


7160 

PRINT RT 19,1;4 


7170 

RETURN 


3000 

LET 0$ = ,, DES.RRT. " 

PROGR 

3010 

PRINT RT 21,0;" SRLURR 

RMR 1 

E TELR ""N/L""" 


3020 

PRUSE 4E4 


3030. 

5RUE 0$ 


3040 

RETURN 


9000 

ST ÜP 

■ 


5311111222223333344444555555 
02453024530245302453024530 


36 

34 

32 

30 

23 
26 

24 



Figura 1 Tela de Desenho. 
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Como Colaborar com a 



Vocês sabem: O trabalho executado 
pela Microhobby conta muito com o 
apoio de seus leitores. Seus principais 
colaboradores são vocês, que nos lêem 
todos os meses e têm-se mantido leais 
desde o seu início. 

Sabendo disto, a Revista dedica boa 
parte de suas páginas aos trabalhos rea¬ 
lizados pelos usuários do Apple, 
TK-2000, TK-85, e o mais recente 
TK-90X. Pensando nisto foi que estipu¬ 
lamos algumas regras para podermos 
atender, da melhor forma possível, as co¬ 
laborações enviadas por nossos leitores. 

Desta forma, aqui estão algumas ob¬ 
servações à vocês que desejam enviar 
seus programas, para análise de nossa 
Redação: 


1 - Envie o texto referente ao progra¬ 
ma, explicando todas as fases de sua es¬ 
truturação, principalmente naqueles as¬ 
pectos onde vocês acham que possa re¬ 
dundar em dúvidas para outros usuários. 
Este texto deve ser datilografado. 

2 - Envie fita gravada, duas vezes, ou 
disquete (quando o programa for do 
TK-2000 ou Apple). 

3 - Envie, junto com o material acima, 
carta - de autorização para posterior pu¬ 
blicação (no caso do programa ser apro¬ 
vado). Nesta carta devem constar tam¬ 
bém nome completo, endereço e telefo¬ 
ne para contato, além dos dados pes¬ 
soais como: RG e CIC. 


No caso de aprovação dos artigos téc¬ 
nicos e/ou programação, os colaborado¬ 
res serão comunicados sobre sua poste¬ 
rior publicação via-carta ou telefone. 

As colaborações serão remuneradas 
de acordo com os parâmetros estipula¬ 
dos pela Redação como: nível de estru¬ 
turação lógica; recursos utilizados em 
Basic ou Assembly; nível de aplicabilida¬ 
de e interesse para o leitor, o texto- 
explicativo enviado e, principalmente, a 
criatividade empenhada no desenvolvi¬ 
mento do programa. 

Esperamos as colaborações! 


A editora. 
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DIDÁTICA 


0 Traçado de gráficos 

Álvaro A.L.Domingues 


0 Computador, como instrumento educacional, pode ser usa¬ 
do de diversas maneiras, principalmente em disciplinas ligadas 
às Ciências Exatas. Esta forma de utilização do microcomputa¬ 
dor está relacionada com a própria máquina, ou seja, mais espe¬ 
cificamente com o aprendizado do manuseio de seus recursos. 
Por exemplo, à medida que o estudante aprende a manipular a 
máquina, podem ser introduzidos, sutilmente, alguns conceitos 
de física ou matemática. Se o estudante estiver lidando com o 
aprendizado das funções matemáticas do microcomputador, ao 
mesmo tempo poderão ser ensinados os principais conceitos de 
trigonometria, aproveitando a existência das funções seno e cos¬ 
seno do micro. 

Sendo assim, abordaremos nesta edição o uso das funções 
gráficas do computador, para explicarmos alguns conceitos de 
elaboração de gráficos, retornando ao tema apresentado na Mi- 
crohobby número 23. 

Usando a tela como papel quadriculado 

Se você acompanhou nosso artigo "O Universo Cartesiano" 
publicado na revista 23, deve ter-se perguntado se não era pos¬ 
sível, também, traçar gráficos na tela do computador, da mes¬ 
ma maneira que tem feito num papel quadriculado ou milimetrado. 

Consideremos que seu computador seja um TK 90X. Todavia, 
os conceitos aqui apresentados são válidos para a maioria dos 
computadores, levando-se em conta, apenas, a formatação da 
tela. 

Observe a figura 1. Ela mostra como a tela do TK 90X está 
dividida, tanto no modo texto como no modo gráfico. No modo 
texto teremos gráficos pouco precisos, mas visíveis à distância. 
O que estamos mostrando na figura 2 é um arco de parábola, 
representado no modo texto. Note que a precisão deixa bastan¬ 
te a desejar. Apesar disso, o modo texto permite a representa¬ 
ção de gráficos em "tamanho família", de forma a serem visí¬ 
veis a uma certa distância. Isto pode ser útil numa demonstra¬ 
ção para um grupo de pessoas. 

O modo texto equivale na prática a um papel quadriculado, com 
22 por 32 quadradinhos, num total de 704 caracteres ou ele¬ 
mentos de imagem (algumas pessoas chamam isso de "pixel"). 

Para se ter acesso a cada um destes pontos é necessário o 
uso da seguinte instrução: 


PRINT AT linha,coluna; "caractere" 


Já para se traçar gráficos, pode ser usado o símbolo gráfico, 
da tecla 8 (um quadrado escuro). 

Observe a figura 3. Ela mostra a orientação dos eixos no mo¬ 
do texto do TK 90X, bem como na maioria dos computadores. 
Ela corresponde ao quarto quadrado e, normalmente, usamos o 
primeiro para representarmos gráficos, tal como se tivéssemos 
virado o mesmo de cabeça para baixo! 

Veja a figura 4 e o efeito que isso provoca. Nesta figura, ve¬ 


mos representada uma reta, cuja equação pode ser escrita como: 


Y = x 

Ou seja, se x=0, y=0; x=1,y=1; e assim por diante. Normal¬ 
mente, teríamos um gráfico como o mostrado na figura 5. 

O que podemos fazer, então, para corrigir este erro? Devemos 
ajustar o eixo y, de modo que a posição 2 corresponda a zero, 

20, a 1 e assim por diante, até que a posição 0 corresponda a 

21. Desta forma, teremos invertido o gráfico. Isto é conseguido 
simplesmente subtraindo de 21 o valor de y, ou seja: 


Ymat ~ 21-yçomputador 


Experimente mudar a linha 30 do programa da figura 2 para: 


30 PRINT AT 21-y,x; " " 

Desta forma, o computador imprimirá na posição correta to¬ 
dos os pontos do gráfico. 

Outra característica da instrução PRINT AT é que o y aparece 
antes do x. Geralmente isso confunde o programador inexperien¬ 
te. A razão é que, normalmente,esquecemos que o número da 
linha do texto corresponde ao eixo y e a coluna onde é impresso 
o caractere representa a variável x. Assim, toda vez que for usa¬ 
do PRINT AT lembre-se que: 

PRINT AT y^x~ 


Sendo que, y corresponde à linha e x à coluna. 

A função DEF FN 

No TK 90X, b4m, como na maioria dos computadores, existe 
uma função que permite ao usuário definir suas próprias funções: 


DEF FN (DEFina uma FuA/ção) 


A sintaxe correta desta função está representada na figura 6. 
Podemos usar a função definida em DEF FN, em qualquer li¬ 
nha do programa ou linha imediata, como se fosse uma das fun¬ 
ções do computador. 

Para tanto, devemos digitar: 


FN y (expressão, variável ou número) 


A letra que representa a função (y no caso), deve ser a mes¬ 
ma que foi usada na função DEF FN, mas a variável que aparece 
entre parênteses pode ser qualquer uma, desde que já tenha si¬ 
do definida pelo programa. 

Você poderá ver isso com detalhes no capítulo 13, do Manual 
do TK 90X, que trata sobre funções. 
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0 Fator de Escala 

Este Fator é muito importante no traçado de gráficos, quer você 
esteja usando computador ou papel milimetrado. O Fator de Es¬ 
cala é um número que multiplica ou divide os valores de outra 
função, de tal forma que o gráfico possa caber dentro do papel 
ou da tela. Em outras palavras, se você tem que ocupar o máxi¬ 
mo de espaço possível multiplicando ou dividindo, por um fator 
adequado, os valores da sua função, utilize o Fator de Escala. 

Por exemplo, você vai traçar o gráfico de uma parábola com 
a seguinte equação: 



O x de suas medidas pode variar de 0 a 31 (o limite do com¬ 
putador). Então o valor máximo que y terá será: 


y=x 2 <i, max > = 31 < e, 2 < = 961 


Suponha agora que cada folha de papel tenha no máximo 22 
quadradinhos (o número máximo de espaços do eixo y do com¬ 
putador) de altura. Se não tivéssemos qualquer fator de escala, 
teríamos que usar aproximadamente: 


folhas de papel = 961/ 22 = 44 


(aproxime sempre para mais, pois se aproximar para menos, 
correrá o risco de faltar papel no " finalzinho "). 

Então você precisará de 44 folhas de papel! E,no caso do com¬ 
putador, teríamos uma mensagem de erro, pois foi excedido o 
limite da tela. Gastar 44 folhas de papel não é brincadeira. Po¬ 
demos fazer ao contrário: dividir cada valor da função por 44, 
de forma que o último quadradinho assuma o valor limite, apro¬ 
ximadamente 961. No computador o procedimento é semelhan¬ 
te, só que devemos levar em consideração o fato de que o valor 
máximo permitido no computador é 21 e não 22, sendo assim, 
devemos dividir o valor máximo de y por 21 e obter o fator de 
correção: 


fator = 961/21 = 46 


Pronto. Vamos agora aplicar este conceito num programa, bus¬ 
cando obter a parábola da figura 2. 


10 

DEF FN u(x 

3 = INT i 

: X 12 ,-‘4-6 ) 

20 

FOR x=l*TO 

31 


30 

PRINT RT 2 

1 - r N y ' 

:x) .. x i' 

•4-0 

NEXT x 



Listagem 1 - Parábola gerada no modo-texto. 


Digite-o e veja o resultado. Experimente variar o coeficiente 
de correção e veja o que acontece. 

Tornando a operação mais precisa 

Uma parábola como a que mostramos na figura 2 não é muito 
interessante para alguns fins, onde é necessário maior precisão. 

Se você estiver trabalhando com papel use o milimetrado, que 
confere maior precisão aos seus gráficos. No computador você 
pode operar com alta-resolução. Observe novamente a figura 1. 
Cada quadradinho do modo texto equivale a oito pontos na ho¬ 
rizontal por oito pontos na vertical, ou seja, a alta-resolução tem 
16 vezes mais elementos, de imagem, que o modo texto. No TK 
90X, em particular, a alta-resolução é formada por 256 por 176 
ou 37056 elementos de imagem. 


Observe a figura 7. É a mesma parábola da figura 2, só que 
representada em alta-resolução. A única diferença de tratamen¬ 
to entre as duas figuras é o valor do fator de correção. A seguir, 
temos o programa utilizado para gerar esta função. Repare que 
agora x poderá variar entre 0 e 255. O valor máximo de y pode¬ 
rá ser 175. Assim, para obter o fator de correção, devemos utili¬ 
zar a seguinte expressão: 



O que conseguimos desenhar até agora foi apenas à parte po¬ 
sitiva da parábola. E a negativa? 

O que temos que fazer é dividir a tela, em relação ao eixo x, 
em duas partes, de tal forma que parte dela seja dedicada à po¬ 
sitiva e a outra à parte negativa da variação de x. 

Certamente temos aí um problema: a potenciação num com¬ 
putador não pode ser feita com números negativos. Isso se de¬ 
ve ao fato de que o computador, para realizar esta operação, 
utiliza-se inteiramente de logaritmos e a função logarítmica não 
admite valores negativos. Este problema felizmente é fácil de ser 
contornado: podemos usar dois recursos. O primeiro deles, mais 
simples no caso de expoentes pequenos (2 e 3), consiste em, 
ao invés de elevar o número ao quadrado ou ao cubo escrever: 


x*x, no caso de quadrado ou x*x*x no caso de cubo 


O outro meio deve lançar mão da função ABS (valor absoluto) 
e só trabalhar com o módulo do número. Para expoentes pares, 
podemos usar: 

y = ABS (X) 12 


Os expoentes ímpares apresentarão valores negativos para x, 
caso ele seja negativo. Neste caso, teremos que verificar antes 
o sinal do número. Observe a listagem 3. Nela o problema foi 
resolvido combinando-se a função SGN (sinal) com a função 
ABS. 


IO DEF FN y £ x3 -SGN £ X ) +HS 5 £ X ) 

2õ INPÜT “x= ,l ; x 

30 Fh: 1 NT ' 1 X = !í ; x .• rN ! 4 £x 3 

4-0 GOTO 20 

Listagem 3. 


O que nos interessa, em particular, neste momento, é colocar 
na tela do computador a função x 2 completa. A metade da tela 
no TK 90X, em relação ao eixo x, é 127 ou 128 (255/2). A va¬ 
riável x deverá então estar entre -127 e +128. O y máximo deve¬ 
rá então ser: 


Vmax = 128 2 = 16384 
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E o fator de segurança deverá ser: 


fator = 16384/175 = 94 


Como resultado temos a parábola mostrada na figura 8. O pro¬ 
grama que usaremos é: 


IQ 

DfcF rW 4 C X j =x *X /94- 

£Q 

FOR X =-127 TO 128 

3Q 

PLOT X +127,FN M ÍX) 

40 

NEXT X 


Listagem 4. 


O eixo horizontal 

Posicionar uma função, cujo valor de y varia de forma positiva 
e negativa, requer outro tipo de ajuste. É o caso da função seno, 
que varia no intervalo -lai. 

Devemos colocar o gráfico da função no meio da tela com um 
fator de correção que faça-o ocupar toda a tela. Como a função 
seno varia entre -1 e 1, teremos então que dividir a tela em duas. 
Como ela possui 176 elementos de imagem na direção y, deve¬ 
mos dividí-la em duas, como se tivéssemos traçado um eixo bem 
no meio da mesma. O fator de correcão neste caso é: 


fator = 176/2 = 88 


Para contornar o posicionamento, deveremos multiplicar o va¬ 
lor da função por 88. Isso fará com que y assuma o seu valor 
máximo. Entretanto, precisamos posicioná-lo no meio da tela. Pa¬ 
ra isso, basta somarmos 87 ao valor da função. Por que 87? Por¬ 
que o valor de y deve variar de 175. Se somarmos 87 ao valor 
da função, quando o seno de x for igual a 1, obteremos o valor 
multiplicando o resultado por 88. Assim teremos: 


88 * sen(x) = 88*1 = 88 


E assim teremos: 


88 + 87 = 175 


Se o valor do seno de x for zero o resultado será: 


88 * sen(x) = 88*0 = 0 


Se somarmos 87 teremos o valor 87, que é a posição do eixo 
x. Por outro lado, se o valor do seno de x for -1 teremos: 


88 * sen(x) = 88 * (-1) = -88 


Somado com 87 obteremos: 

88-87 = 1, quando devería ser zero. 

Temos aí um pequeno erro. Se usarmos 88 haverá estouro de 
tela. Para contornar o impasse, temos duas opções: ou multipli¬ 
camos o valor da função 87 ao invés de 88 ou somamos meio 
ao valor final da função, quando formos plotar a mesma. Por que 
0,5? Porque a função PLOT trabalha apenas com números intei¬ 
ros e faz uma aproximação por truncamento do valor numérico, 
desprezando o valor que vier após a vírgula, como a função INT. 
Se somarmos 0,5 ao valor final da função conseguiremos os va¬ 
lores para os extremos da função seno, mostrados na tabela I. 


Tabela I: valores extremos da função sen(x) 


sen(x) 

88 * sen(x) + 87 + 0,5 

valor truncado 

1 

175,5 

175 

0 

87,5 

87 

-1 

0.5 

0 


Como podemos ver, o valor truncado colocará o ponto na po¬ 
sição correta. Além disso, devemos fazer outra correção. O va¬ 
lor da função seno é obtido em radianos. Para obtermos o valor 
certo deveremos dividir o valor de x, bem como de seus limites 
por 2PI. Quando formos plotar o ponto na posição, deveremos 
multiplicar o valor de x novamente por 2PI. Observe todos estes 
truques no seguinte programa: 


10 

DEF FN y Cxi 

i=8S*SIN (X/C2*PI 

3 i +8 

"7 


20 

FOR X=0 TG 

40 bT bH «1 

—■ kl! 

PLOT 2*PI*:> 

i , FN y Cx 3 + . 5 

40 

NEXT x 




Listagem 5. 


Ele produzirá o efeito que mostramos na figura 9. 

Conclusão 

Como pudemos ver, é possível usar um computador para tra¬ 
çar gráficos de funções,tal como um papel milimetrado comum. 
Devemos usar os mesmos tipos de fatores de correção e de cri¬ 
térios para traçar um gráfico de qualidade. Desta forma, pode¬ 
mos usar os conceitos de programação como suporte para con¬ 
ceitos matemáticos, servindo assim no aprendizado destes 
tópicos. 
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Figura 1 - A Tela do TK 90X. 



o 


o- 


31 

■+* 



Figura 3 - Orientação dos eixos no modo-texto. 



lo rem pRií-rr ht 

20 FOR x =! TO 21 
30 L5T M=X 
4-0 PRINT HT M «x ; 1“ 
50 NEXT X 


Figura 4 - O efeito da inversão de eixos no modo-texto. 
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Figura 6 - A sintaxe da função DEF. 

DEF FN y(x) 

- x t 2 

Palavra 

Expressão numérica que 

Chave 

representa a função 


escolhida 

y = função do usuário 


Figura 8 - Parábola em alta-resolução. 



Figura 7 - Uma parábola representada no modo-gráfico. 



Figura 9 - Função seno. 
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Novas Instruções do 
6502 

Aula IX 


Gustavo Egídio de Almeida 


Nesta aula abordaremos outras instruções do microprocessa¬ 
dor do TK 2000 que estão, também, discriminadas em seu Ma¬ 
nual Técnico (página 86). 

Dentre estas, falaremos sobre as instruções SED, CLD; as ins¬ 
truções lógicas como AND, ORA, EOR e algumas rotinas de 
teclado. 

SED é a primeira instrução que habilita o computador a traba¬ 
lhar com valores decimais, nas operações aritméticas.(Tabela 1) 


Tabela 1 - SED 

código hexadecimal 
utilizado 

formato 

Assembler 

número de 
bytes 

F-8 

SED 

1 


Não devemos nos esquecer que o computador, em sua opera¬ 
ção normal, trabalha apenas com valores hexadecimais, seja qual 
for a instrução usada. 

Vamos imaginar que desejamos somar dois números decimais 
como #23 e # 18, obtendo o resultado dessa operação, logica¬ 
mente no modo decimal. 

Sendo assim, apresentaremos um exemplo prático de como 
esta operação pode ser realizada. Primeiramente, vamos ver co¬ 
mo o computador realiza uma soma em seu modo normal de ope¬ 
ração (ou seja, com valores Hexadecimais). 

Adição de dois números hexadecimais 

$300 - 18 CLC - resseta o FLAG de CARRY 
$301 - A9 23 LDA # $23 - carrega o acumulador com o valor 
23 

$303 - 69 18 ADC #$18 - adiciona ao valor 18 
$305 - 20 DA FD JSR $FDDA - imprime na tela o resultado 
da operação 

$308 - 60 RTS - retorna ao monitor 
Resultado da operação = $3B (Hexadecimal) 

Adição de dois números Decimais 

$300 - F8 SED - seta o modo decimal 

$301 - 18 CLC 

$302 - A9 23 LDA #$23 

$304 - 69 18 ADC #$18 

$306 - 20 DA FD JSR $ FDDA 

$309 - 60 RTS 

Resultado da operação = # 41 (Decimal) 

Como vemos, a instrução SED pode ser usada tanto para ope¬ 
rações de adição como para operações de subtração. 
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Outra instrução é a CLD, que zera o modo Decimal. 

Esta instrução funciona de um modo inverso à instrução SED. 
Ela resseta (em zero) o "flag" decimal do processador STATUS 
- REGISTER, possibilitando-o a trabalhar com o modo Hexadeci¬ 
mal (normalmente usado). 


Tabela II - CLD 

Código usado 

Formato 

Bytes usados 

D8 

CLD 

1 


Instruções Lógicas 

A instrução AND efetua a operação "AND" da memória com 
o acumulador. 


Tabela III - AND 

Código Usado 

Formato 

Bytes Usados 

29 

AND #OPER 

2 

25 

AND OPER 

2 

35 

AND OPER, X 

2 

2D 

AND OPER 

3 

3D 

AND OPER, X 

3 

39 

AND OPER, Y 

3 

21 

AND (OPER, X) 

2 

31 

AND (OPER), Y 

2 


A instrução AND é usada como instrumento de comparação 
entre o acumulador e o próprio valor contido na instrução. 

Esta instrução altera o valor do acumulador e é principalmen¬ 
te usada com o intuito de manipular um Byte, a fim de que o va¬ 
lor final deste corresponda às nossas necessidades. 

Vamos ver como essa instrução altera o valor de um Byte, atra¬ 
vés do exemplo a seguir: 

Conteúdo do acumulador B5 = 10110101 
AND com o valor OF = 00001111 

00000101 = OS 

Resultado a ser inserido no acumulador= #$05 


Note na tabela a seguir como a instrução AND constrói seu 
resultado final. 


Bit do Acumulador 

1 

0 

1 

Bit da instrução AND 

0 

0 

1 

Resultado final 

0 

0 

1 


Como vimos no resultado final, o Bit só é setado quando os 
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dois Bits envolvidos na operação lógica estão setados. 


ORA - Efetua a operação ORA da memória com o acumulador 


Tabela IV 

Código 

Formato 

Bytes Usados 

09 

ORA #OPER 

2 

05 

ORA OPER 

2 

15 

ORA OPER, X 

2 

OD 

ORA OPER 

3 

1D 

ORA OPER, X 

3 

19 

ORA OPER, Y 

3 

01 

ORA (OPER, X) 

2 

11 

ORA (OPER), Y 

2 


A próxima tabela mostra mais uma instrução lógica que, em 
seu resultado final, apresentará o Bit setado para valores 0 e 1, 
assim como para valores 1 e 1 obtidos pelos membros envolvi¬ 
dos na operação lógica. 

Veja como isto ocorre: 


Bit do acumulador 

1 

0 

1 

Bit da instrução ORA 

0 

0 

1 

Resultado final 

1 

0 

1 


Obstrua a operação lógica a seguir: 

Conteúdo do acumulador E3 = 11100011 
ORA com o valor AB = 10101011 

11101011 = EB 

EOR - Exclusive-OR da memória com o acumulador 


Conteúdo do acumulador E3 = 11100011 

EOR com o valor FF = 11111111 

00011100 = 1C 

Note que na última operação, utilizando-se o EOR #$FF, to¬ 
dos os valores do Byte do acumulador foram inversos, tendo es¬ 
sa instrução uma utilidade bastante interessante, como por exem¬ 
plo uma maneira de se obter o valor complementar de um nú¬ 
mero, ou a troca de cor ou até mesmo o movimento. 

Mudança de cor num determinado Byte. 



Cor Azul 


Valor do Byte= #$2A 



Ao fazermos uma operação lógica EOR, com esse Byte, tere¬ 
mos o seguinte resultado: 

#2A = 00101010 
EOR # FF = 11111111 

11010101 = #D5 


Tabela V 

Código Usado 

Formato 

Bytes Usados 

49 

EOR # OPER 

2 

45 

EOR OPER 

2 

55 

EOR OPER, X 

2 

4D 

EOR OPER 

3 

5D 

EOR OPER, X 

3 

59 

EOR OPER, Y 

3 

41 

EOR (OPER, X) 

2 

51 

EOR (OPER), Y 

2 


Vejamos agora como este Byte será visto no vídeo 



Valor final do 
Byte= #$D5 


EOR é a última instrução lógica do SET de instruções do TK- 
2000 que apresenta, como resultado final, o Bit setado, apenas 
para os valores O e 1 obtidos através dos membros envolvidos 
na operação lógica. 

Veja como isso aconteceu: 



Bit do acumulador 

1 

0 

1 

Bit da instrução EOR 

0 

0 

1 

Resultado final 

1 

0 

0 


Agora observe a operação lógica a seguir: 

Conteúdo do acumulador E3 = 11100011 
EOR com o valor AO = 10100000 

01000011 = 43 


Após a operação lógica com EOR #FF, o Byte será impresso 
na tela com a cor ciano, ou seja, a complementar da azul. 

Para sermos mais objetivos, apresentamos, apenas, as instru¬ 
ções que se destacam em cada um de seus grupos. As outras 
instruções lógicas indexadas por X e Y não foram vistas porque 
processam suas informações de maneira idêntica às instruções 
LDA ou STA indexadas. Desta forma, a instrução EOR OPER, Y 
processa seus dados da mesma maneira que a instrução LDA 
OPER, Y, lembrando, naturalmente, que a primeira realiza uma 
operação lógica e a outra carrega o registro acumulador. 
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Rotina de teclado 

Apresentaremos agora um exemplo prático do uso da rotina 
de teclado. 

No TK-2000, tanto em jogos, como utilitários, ou em outro pro¬ 
grama qualquer, utilizamos o teclado como meio de entrada de 


Podemos também usar simultaneamente duas ou mais teclas. 
Vamos imaginar que desejamos executar uma sub-rotina com 
a pressão simultânea de duas teclas L e 3. 

Exemplo: 


dados. 

$300 

- A9 

40 

LDA #40 

Recomendamos a você, primeiramente, que dê uma "olhada" 

$302 

- 8D 

00 CO 

STA $ C000 

no Manual Técnico do TK-2000, na página 21 - Capítulo IV para 

$305 

- A9 

10 

LDA #10 

uma rápida noção teórica do assunto. 

$307 

- 2D 

10 CO 

AND $ C010 

0 teclado do 6502 é constituído por uma matriz de linhas cru¬ 

$30A 

- FO 

F9 

BEQ $ 305 

zadas, que associa os registros KBIN e KBOUT, estes são res¬ 

$30C 

- A9 

08 

LDA #08 

pectivamente as linhas de entrada e saída dessa matriz. 

$30E 

- 8D 

00 CO 

STA $ C000 

Caso nenhuma tecla seja pressionada, ao lermos KBIN obte¬ 

$311 

- A9 

08 

LDA #08 

remos o valor zero. 

$313 

- 2D 

10 CO 

AND $ C010 

Para acionar essa matriz, através do contato em uma tecla, 

$316 

- FO 

E8 

BEQ $ 300 

devemos proceder da seguinte maneira: 

$318 

- 20 

80 FE 

JSR $ FE 80 

Suponhamos que queremos executar uma determinada roti¬ 




do inverso 

na, num programa com o acionamento da tecla A. 

$31B 

- 60 


RTS 


Teclado 



Por fim, apresentaremos uma última sub-rotina, localizada na 
ROM no endereço $F043, que realiza a leitura de apenas uma 
tecla de cada vez. 

Ao pressionarmos uma tecla qualquer, esta terá seu valor ar¬ 
mazenado no acumulador. Chamando a sub-rotina de teclado $ 
F043, poderemos comparar o valor do acumulador com a tecla 
por nós selecionada, e assim executar quaisquer sub-rotinas. 


$800 

- 20 43 FO 

JSR $ F043 sub-rotina de teclado 

$803 

- C9 BO 

CMP # $ BO compara com a tecla 0 

$805 

- DO F9 

BNE $ 800 se foi pressionada sai 
do LOOP 

$807 

- 20 80 FE 

JRS $ FE80 seta o vídeo no modo 
inverso 

$80A 

- 60 

RTS retorna ao monitor 


Observando a tecla A, notamos que ela é obtida pelo cruza¬ 
mento de duas linhas, que se originam tanto do registro KBIN 
como do KBOUT. Esta tecla deve conter, em seus dois registros, 
valores setados (Em 1), já que desejamos que ela seja pressio¬ 
nada pela matriz. Os valores setados de cada registro indicam 
a tecla a ser requisitada. 

Como notamos, cada registro contém 8 Bits, ou seja, um Byte 
que representa um certo valor Hexadecimal. O valor do registro 
KBIN será armazenado em $C010 e o registro KBOUT em $C000. 
Se pressionarmos a tecla determinada pelos valores dos regis¬ 
tros KBIN e KBOUT, o programa executará uma rotina especifi¬ 
cada. Observe o exemplo abaixo: 


Exemplo : Valor de KBOUT: 02 
Valor de KBIN: 20 


$0300 

- A9 02 

$0302 

- BD 00 CO 

$305 

- A9 20 

$307 

- 2D 10 CO 

$30A 

- FO F9 

$30C 

- 20 80 FE 

$30F 

- 60 


- LDA #02 acumulador com o va¬ 
lor de KBOUT 

- STA $ C000 

- LDA #20 acumulador com o va¬ 
lor de KBIN 

- AND $C010 realiza uma operação 
lógica AND 

- BEQ$305 comparando o valor do 
acumulador 

- JSR $ FE80 #20 com o valor de 
KBIN 

- RTS caso KBIN esteja com o va¬ 
lor #20, ou seja, caso a tecla A 
seja pressionada, nossa rotina de 
impressão será executada. 

Esta consiste em, apenas, colocar 
o vídeo de modo inverso. 


O código de cada tecla pode ser encontrado, na revista Ml- 
CROHOBBY Nro. 23, página 60, na tabela de caracteres alfanu¬ 
méricos (ASCII), com a seguinte alteração: 

Para cada valor obtido somar ao número #80. 

Exemplo: 

Tecla Zero (0) -* #$30 + #$80= #$B0 (valor correto) 

A sub-rotina $F043 apresenta apenas uma desvantagem. 

Ela se utiliza dos endereços $6, $7, $8, $9, $26 e $27 da pá¬ 
gina zero. Porém, há uma maneira de se preservar estes endere¬ 
ços salvando-os no STACK POINTER, antes que esta sub-rotina 
seja requisitada pelo programa. Após serem requisitados os en¬ 
dereços, da página zero, estes terão seus respectivos valores de¬ 
volvidos pelo STACK POINTER. Esta sub-rotina, completa, pode 
ser encontrada no Manual Técnico do TK-2000, na página 95. 


Errata - Curso de Assembly (Edição 25) 


Os dados referentes à primeira tabela do texto estão distri¬ 


buídos da seguinte forma: 


aiDFC: 02 

00 

06 

00 

08 

00 

55 

00 

4C 

1B 

2D 

2D 

3D 

3E 

2F 

2D 

IS 

3F 

3F 

3F 

37 

86 

2D 

2D 

2D 

2D 

2D 

2D 

CO 

3B 

3F 

F7 

DB 

OD 

OD 

OD 

OD 

IS 

16 

1F 

9C 

2E 

3C 

1F 

FF 

3F 

57 

2D 

64 

29 

4D 

09 

05 

00 







Na listagem , 

Assemblv 

f o primeiro endereço é 

1560 e 

não 

1060 
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_A Microsoft tem 120 programas em fífas e disquetes à sua disposição 

_ São sistemas aplicativos para acompanhar e agilizar os negócios 

_ de sua empresa. E também jogos eletrônicos para você e sua família 

_ _se divertirem muito. Todos especiais para TK-83, TK-85; - 

TK-2000, Applele compatíveis. E todos com a mesma qualidade- - 

dos 100.000 programas já vendidos em todo o Brasil: - 

' “Procure o revendedor Microsoft mais próximo (se não encontrar os ■ 
"programas Microsoft escreva para a Caixa Postal 54221 - CEP 01000? 
rS. Paulo-SP). Você encontrará os melhores programas da sua vidaJ 
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fox *Sujeito a alteração sem prévio aviso. 


AMicrodigita 
lança no Brasi 
o micra pessoal 
demaiorsucesso 
no munda 

A partir de agora a história dos 
micros pessoais vai ser contada em duas 
partes: antes e depois do TK 90X. 

0 TK 90X é, simplesmente, o único 
micro pessoal lançado no Brasil que 
merece a classificação de "software 
machine”: um caso raro de micro que 
pela sua facilidade de uso, grandes 
recursos e preço acessível recebeu a 



atenção dos criadores de programas e 
periféricos em todo o mundo. 

Para você ter uma idéia, existem 
mais de 2 mil programas, 70 livros, 30 
periféricos e inúmeras 
revistas de usuários disponíveis 
para ele internacionalmente. 


E aqui o TK 90X já sai com mais de 
100 programas, enquanto outros estão 
em fase final de desenvolvimento para 
lhe dar mais opções para trabalhar, 
aprender ou se divertir que com qualquer 
outro micro. 

0 TK 90X tem duas versões de 
memória (de 16 ou 48 K), imagem de 
alta resolução gráfica com 8 cores, 
carregamento rápido de programas 
(controlável pelo próprio monitor), som 
pela TV, letras maiúsculas e minúsculas 
e ainda uma exclusividade: acentuação 
em português. 

Faça o seu programa: peça já uma 
demonstração do novo TK 90X. 
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